﻿Imports System.Text

Public Class Form2

    Public score = 0
    Public count = 0


    Dim A1_id As String = "WATER"
    Dim A2_id As String = "WATER"
    Dim A3_id As String = "WATER"
    Dim A4_id As String = "WATER"
    Dim A5_id As String = "WATER"
    Dim A6_id As String = "WATER"
    Dim A7_id As String = "WATER"
    Dim A8_id As String = "WATER"
    Dim A9_id As String = "WATER"
    Dim A10_id As String = "WATER"
    Dim B1_id As String = "WATER"
    Dim B2_id As String = "WATER"
    Dim B3_id As String = "WATER"
    Dim B4_id As String = "WATER"
    Dim B5_id As String = "WATER"
    Dim B6_id As String = "WATER"
    Dim B7_id As String = "WATER"
    Dim B8_id As String = "WATER"
    Dim B9_id As String = "WATER"
    Dim B10_id As String = "WATER"
    Dim C1_id As String = "WATER"
    Dim C2_id As String = "WATER"
    Dim C3_id As String = "WATER"
    Dim C4_id As String = "WATER"
    Dim C5_id As String = "WATER"
    Dim C6_id As String = "WATER"
    Dim C7_id As String = "WATER"
    Dim C8_id As String = "WATER"
    Dim C9_id As String = "WATER"
    Dim C10_id As String = "WATER"
    Dim D1_id As String = "WATER"
    Dim D2_id As String = "WATER"
    Dim D3_id As String = "WATER"
    Dim D4_id As String = "WATER"
    Dim D5_id As String = "WATER"
    Dim D6_id As String = "WATER"
    Dim D7_id As String = "WATER"
    Dim D8_id As String = "WATER"
    Dim D9_id As String = "WATER"
    Dim D10_id As String = "WATER"
    Dim E1_id As String = "WATER"
    Dim E2_id As String = "WATER"
    Dim E3_id As String = "WATER"
    Dim E4_id As String = "WATER"
    Dim E5_id As String = "WATER"
    Dim E6_id As String = "WATER"
    Dim E7_id As String = "WATER"
    Dim E8_id As String = "WATER"
    Dim E9_id As String = "WATER"
    Dim E10_id As String = "WATER"
    Dim F1_id As String = "WATER"
    Dim F2_id As String = "WATER"
    Dim F3_id As String = "WATER"
    Dim F4_id As String = "WATER"
    Dim F5_id As String = "WATER"
    Dim F6_id As String = "WATER"
    Dim F7_id As String = "WATER"
    Dim F8_id As String = "WATER"
    Dim F9_id As String = "WATER"
    Dim F10_id As String = "WATER"
    Dim G1_id As String = "WATER"
    Dim G2_id As String = "WATER"
    Dim G3_id As String = "WATER"
    Dim G4_id As String = "WATER"
    Dim G5_id As String = "WATER"
    Dim G6_id As String = "WATER"
    Dim G7_id As String = "WATER"
    Dim G8_id As String = "WATER"
    Dim G9_id As String = "WATER"
    Dim G10_id As String = "WATER"
    Dim H1_id As String = "WATER"
    Dim H2_id As String = "WATER"
    Dim H3_id As String = "WATER"
    Dim H4_id As String = "WATER"
    Dim H5_id As String = "WATER"
    Dim H6_id As String = "WATER"
    Dim H7_id As String = "WATER"
    Dim H8_id As String = "WATER"
    Dim H9_id As String = "WATER"
    Dim H10_id As String = "WATER"
    Dim I1_id As String = "WATER"
    Dim I2_id As String = "WATER"
    Dim I3_id As String = "WATER"
    Dim I4_id As String = "WATER"
    Dim I5_id As String = "WATER"
    Dim I6_id As String = "WATER"
    Dim I7_id As String = "WATER"
    Dim I8_id As String = "WATER"
    Dim I9_id As String = "WATER"
    Dim I10_id As String = "WATER"
    Dim J1_id As String = "WATER"
    Dim J2_id As String = "WATER"
    Dim J3_id As String = "WATER"
    Dim J4_id As String = "WATER"
    Dim J5_id As String = "WATER"
    Dim J6_id As String = "WATER"
    Dim J7_id As String = "WATER"
    Dim J8_id As String = "WATER"
    Dim J9_id As String = "WATER"
    Dim J10_id As String = "WATER"
    Dim shipsplaced As Integer = 0
    Dim hitcount As Integer = 0
    Dim hitbyopcount As Integer = 0

    Private Sub NextButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NextButton.Click
        Dim myloc As Object
        Dim position As String = ""
        position = ComboBox_letter.Text + ComboBox_number.Text

        If A1.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    A1_id = "Bingo !!!"
                    B1_id = "Bingo !!!"
                    C1_id = "Bingo !!!"
                    D1_id = "Bingo !!!"
                    E1_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    A1_id = "Bingo !!!"
                    A2_id = "Bingo !!!"
                    A3_id = "Bingo !!!"
                    A4_id = "Bingo !!!"
                    A5_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    A1_id = "Bingo !!!"
                    B1_id = "Bingo !!!"
                    C1_id = "Bingo !!!"
                    D1_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    A1_id = "Bingo !!!"
                    A2_id = "Bingo !!!"
                    A3_id = "Bingo !!!"
                    A4_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    A1_id = "Bingo !!!"
                    B1_id = "Bingo !!!"
                    C1_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    A1_id = "Bingo !!!"
                    A2_id = "Bingo !!!"
                    A3_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    A1_id = "Bingo !!!"
                    B1_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    A1_id = "Bingo !!!"
                    A2_id = "Bingo !!!"
                End If
            End If
            myloc = A1.Location
        ElseIf A2.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    A2_id = "Bingo !!!"
                    B2_id = "Bingo !!!"
                    C2_id = "Bingo !!!"
                    D2_id = "Bingo !!!"
                    E2_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    A2_id = "Bingo !!!"
                    A3_id = "Bingo !!!"
                    A4_id = "Bingo !!!"
                    A5_id = "Bingo !!!"
                    A6_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    A2_id = "Bingo !!!"
                    B2_id = "Bingo !!!"
                    C2_id = "Bingo !!!"
                    D2_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    A2_id = "Bingo !!!"
                    A3_id = "Bingo !!!"
                    A4_id = "Bingo !!!"
                    A5_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    A2_id = "Bingo !!!"
                    B2_id = "Bingo !!!"
                    C2_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    A2_id = "Bingo !!!"
                    A3_id = "Bingo !!!"
                    A4_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    A2_id = "Bingo !!!"
                    B2_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    A2_id = "Bingo !!!"
                    A3_id = "Bingo !!!"
                End If
            End If
            myloc = A2.Location
        ElseIf A3.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    A3_id = "Bingo !!!"
                    B3_id = "Bingo !!!"
                    C3_id = "Bingo !!!"
                    D3_id = "Bingo !!!"
                    E3_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    A3_id = "Bingo !!!"
                    A4_id = "Bingo !!!"
                    A5_id = "Bingo !!!"
                    A6_id = "Bingo !!!"
                    A7_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    A3_id = "Bingo !!!"
                    B3_id = "Bingo !!!"
                    C3_id = "Bingo !!!"
                    D3_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    A3_id = "Bingo !!!"
                    A4_id = "Bingo !!!"
                    A5_id = "Bingo !!!"
                    A6_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    A3_id = "Bingo !!!"
                    B3_id = "Bingo !!!"
                    C3_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    A3_id = "Bingo !!!"
                    A4_id = "Bingo !!!"
                    A5_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    A3_id = "Bingo !!!"
                    B3_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    A3_id = "Bingo !!!"
                    A4_id = "Bingo !!!"
                End If
            End If
            myloc = A3.Location
        ElseIf A4.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    A4_id = "Bingo !!!"
                    B4_id = "Bingo !!!"
                    C4_id = "Bingo !!!"
                    D4_id = "Bingo !!!"
                    E4_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    A4_id = "Bingo !!!"
                    A5_id = "Bingo !!!"
                    A6_id = "Bingo !!!"
                    A7_id = "Bingo !!!"
                    A8_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    A4_id = "Bingo !!!"
                    B4_id = "Bingo !!!"
                    C4_id = "Bingo !!!"
                    D4_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    A4_id = "Bingo !!!"
                    A5_id = "Bingo !!!"
                    A6_id = "Bingo !!!"
                    A7_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    A4_id = "Bingo !!!"
                    B4_id = "Bingo !!!"
                    C4_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    A4_id = "Bingo !!!"
                    A5_id = "Bingo !!!"
                    A6_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    A4_id = "Bingo !!!"
                    B4_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    A4_id = "Bingo !!!"
                    A5_id = "Bingo !!!"
                End If
            End If
            myloc = A4.Location
        ElseIf A5.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    A5_id = "Bingo !!!"
                    B5_id = "Bingo !!!"
                    C5_id = "Bingo !!!"
                    D5_id = "Bingo !!!"
                    E5_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    A5_id = "Bingo !!!"
                    A6_id = "Bingo !!!"
                    A7_id = "Bingo !!!"
                    A8_id = "Bingo !!!"
                    A9_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    A5_id = "Bingo !!!"
                    B5_id = "Bingo !!!"
                    C5_id = "Bingo !!!"
                    D5_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    A5_id = "Bingo !!!"
                    A6_id = "Bingo !!!"
                    A7_id = "Bingo !!!"
                    A8_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    A5_id = "Bingo !!!"
                    B5_id = "Bingo !!!"
                    C5_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    A5_id = "Bingo !!!"
                    A6_id = "Bingo !!!"
                    A7_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    A5_id = "Bingo !!!"
                    B5_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    A5_id = "Bingo !!!"
                    A6_id = "Bingo !!!"
                End If
            End If
            myloc = A5.Location
        ElseIf A6.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    A6_id = "Bingo !!!"
                    B6_id = "Bingo !!!"
                    C6_id = "Bingo !!!"
                    D6_id = "Bingo !!!"
                    E6_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    A6_id = "Bingo !!!"
                    A7_id = "Bingo !!!"
                    A8_id = "Bingo !!!"
                    A9_id = "Bingo !!!"
                    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    A6_id = "Bingo !!!"
                    B6_id = "Bingo !!!"
                    C6_id = "Bingo !!!"
                    D6_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    A6_id = "Bingo !!!"
                    A7_id = "Bingo !!!"
                    A8_id = "Bingo !!!"
                    A9_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    A6_id = "Bingo !!!"
                    B6_id = "Bingo !!!"
                    C6_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    A6_id = "Bingo !!!"
                    A7_id = "Bingo !!!"
                    A8_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    A6_id = "Bingo !!!"
                    B6_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    A6_id = "Bingo !!!"
                    A7_id = "Bingo !!!"
                End If
            End If
            myloc = A6.Location
        ElseIf A7.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    A7_id = "Bingo !!!"
                    B7_id = "Bingo !!!"
                    C7_id = "Bingo !!!"
                    D7_id = "Bingo !!!"
                    E7_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A6_id = "Bingo !!!"
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    A7_id = "Bingo !!!"
                    B7_id = "Bingo !!!"
                    C7_id = "Bingo !!!"
                    D7_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    A7_id = "Bingo !!!"
                    A8_id = "Bingo !!!"
                    A9_id = "Bingo !!!"
                    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    A7_id = "Bingo !!!"
                    B7_id = "Bingo !!!"
                    C7_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    A7_id = "Bingo !!!"
                    A8_id = "Bingo !!!"
                    A9_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    A7_id = "Bingo !!!"
                    B7_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    A7_id = "Bingo !!!"
                    A8_id = "Bingo !!!"
                End If
            End If
            myloc = A7.Location
        ElseIf A8.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    A8_id = "Bingo !!!"
                    B8_id = "Bingo !!!"
                    C8_id = "Bingo !!!"
                    D8_id = "Bingo !!!"
                    E8_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A6_id = "Bingo !!!"
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    A8_id = "Bingo !!!"
                    B8_id = "Bingo !!!"
                    C8_id = "Bingo !!!"
                    D8_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    A8_id = "Bingo !!!"
                    B8_id = "Bingo !!!"
                    C8_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    A8_id = "Bingo !!!"
                    A9_id = "Bingo !!!"
                    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    A8_id = "Bingo !!!"
                    B8_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    A8_id = "Bingo !!!"
                    A9_id = "Bingo !!!"
                End If
            End If
            myloc = A8.Location
        ElseIf A9.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    A9_id = "Bingo !!!"
                    B9_id = "Bingo !!!"
                    C9_id = "Bingo !!!"
                    D9_id = "Bingo !!!"
                    E9_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A6_id = "Bingo !!!"
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    A9_id = "Bingo !!!"
                    B9_id = "Bingo !!!"
                    C9_id = "Bingo !!!"
                    D9_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    A9_id = "Bingo !!!"
                    B9_id = "Bingo !!!"
                    C9_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    A9_id = "Bingo !!!"
                    B9_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    A9_id = "Bingo !!!"
                    A10_id = "Bingo !!!"
                End If
            End If
            myloc = A9.Location
        ElseIf A10.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    A10_id = "Bingo !!!"
                    B10_id = "Bingo !!!"
                    C10_id = "Bingo !!!"
                    D10_id = "Bingo !!!"
                    E10_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A6_id = "Bingo !!!"
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    A10_id = "Bingo !!!"
                    B10_id = "Bingo !!!"
                    C10_id = "Bingo !!!"
                    D10_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    A10_id = "Bingo !!!"
                    B10_id = "Bingo !!!"
                    C10_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    A10_id = "Bingo !!!"
                    B10_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            End If
            myloc = A10.Location
        ElseIf B1.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    B1_id = "Bingo !!!"
                    C1_id = "Bingo !!!"
                    D1_id = "Bingo !!!"
                    E1_id = "Bingo !!!"
                    F1_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    B1_id = "Bingo !!!"
                    B2_id = "Bingo !!!"
                    B3_id = "Bingo !!!"
                    B4_id = "Bingo !!!"
                    B5_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    B1_id = "Bingo !!!"
                    C1_id = "Bingo !!!"
                    D1_id = "Bingo !!!"
                    E1_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    B1_id = "Bingo !!!"
                    B2_id = "Bingo !!!"
                    B3_id = "Bingo !!!"
                    B4_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    B1_id = "Bingo !!!"
                    C1_id = "Bingo !!!"
                    D1_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    B1_id = "Bingo !!!"
                    B2_id = "Bingo !!!"
                    B3_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    B1_id = "Bingo !!!"
                    C1_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    B1_id = "Bingo !!!"
                    B2_id = "Bingo !!!"
                End If
            End If
            myloc = B1.Location
        ElseIf B2.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    B2_id = "Bingo !!!"
                    C2_id = "Bingo !!!"
                    D2_id = "Bingo !!!"
                    E2_id = "Bingo !!!"
                    F2_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    B2_id = "Bingo !!!"
                    B3_id = "Bingo !!!"
                    B4_id = "Bingo !!!"
                    B5_id = "Bingo !!!"
                    B6_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    B2_id = "Bingo !!!"
                    C2_id = "Bingo !!!"
                    D2_id = "Bingo !!!"
                    E2_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    B2_id = "Bingo !!!"
                    B3_id = "Bingo !!!"
                    B4_id = "Bingo !!!"
                    B5_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    B2_id = "Bingo !!!"
                    C2_id = "Bingo !!!"
                    D2_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    B2_id = "Bingo !!!"
                    B3_id = "Bingo !!!"
                    B4_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    B2_id = "Bingo !!!"
                    C2_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    B2_id = "Bingo !!!"
                    B3_id = "Bingo !!!"
                End If
            End If
            myloc = B2.Location
        ElseIf B3.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    B3_id = "Bingo !!!"
                    C3_id = "Bingo !!!"
                    D3_id = "Bingo !!!"
                    E3_id = "Bingo !!!"
                    F3_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    B3_id = "Bingo !!!"
                    B4_id = "Bingo !!!"
                    B5_id = "Bingo !!!"
                    B6_id = "Bingo !!!"
                    B7_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    B3_id = "Bingo !!!"
                    C3_id = "Bingo !!!"
                    D3_id = "Bingo !!!"
                    E3_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    B3_id = "Bingo !!!"
                    B4_id = "Bingo !!!"
                    B5_id = "Bingo !!!"
                    B6_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    B3_id = "Bingo !!!"
                    C3_id = "Bingo !!!"
                    D3_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    B3_id = "Bingo !!!"
                    B4_id = "Bingo !!!"
                    B5_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    B3_id = "Bingo !!!"
                    C3_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    B3_id = "Bingo !!!"
                    B4_id = "Bingo !!!"
                End If
            End If
            myloc = B3.Location
        ElseIf B4.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F4_id = "Bingo !!!"
                    B4_id = "Bingo !!!"
                    C4_id = "Bingo !!!"
                    D4_id = "Bingo !!!"
                    E4_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    B4_id = "Bingo !!!"
                    B5_id = "Bingo !!!"
                    B6_id = "Bingo !!!"
                    B7_id = "Bingo !!!"
                    B8_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E4_id = "Bingo !!!"
                    B4_id = "Bingo !!!"
                    C4_id = "Bingo !!!"
                    D4_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    B4_id = "Bingo !!!"
                    B5_id = "Bingo !!!"
                    B6_id = "Bingo !!!"
                    B7_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    D4_id = "Bingo !!!"
                    B4_id = "Bingo !!!"
                    C4_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    B4_id = "Bingo !!!"
                    B5_id = "Bingo !!!"
                    B6_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    C4_id = "Bingo !!!"
                    B4_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    B4_id = "Bingo !!!"
                    B5_id = "Bingo !!!"
                End If
            End If
            myloc = B4.Location
        ElseIf B5.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F5_id = "Bingo !!!"
                    B5_id = "Bingo !!!"
                    C5_id = "Bingo !!!"
                    D5_id = "Bingo !!!"
                    E5_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    B5_id = "Bingo !!!"
                    B6_id = "Bingo !!!"
                    B7_id = "Bingo !!!"
                    B8_id = "Bingo !!!"
                    B9_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E5_id = "Bingo !!!"
                    B5_id = "Bingo !!!"
                    C5_id = "Bingo !!!"
                    D5_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    B5_id = "Bingo !!!"
                    B6_id = "Bingo !!!"
                    B7_id = "Bingo !!!"
                    B8_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    D5_id = "Bingo !!!"
                    B5_id = "Bingo !!!"
                    C5_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    B5_id = "Bingo !!!"
                    B6_id = "Bingo !!!"
                    B7_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    C5_id = "Bingo !!!"
                    B5_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    B5_id = "Bingo !!!"
                    B6_id = "Bingo !!!"
                End If
            End If
            myloc = B5.Location
        ElseIf B6.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F6_id = "Bingo !!!"
                    B6_id = "Bingo !!!"
                    C6_id = "Bingo !!!"
                    D6_id = "Bingo !!!"
                    E6_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    B6_id = "Bingo !!!"
                    B7_id = "Bingo !!!"
                    B8_id = "Bingo !!!"
                    B9_id = "Bingo !!!"
                    B10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E6_id = "Bingo !!!"
                    B6_id = "Bingo !!!"
                    C6_id = "Bingo !!!"
                    D6_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    B6_id = "Bingo !!!"
                    B7_id = "Bingo !!!"
                    B8_id = "Bingo !!!"
                    B9_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    D6_id = "Bingo !!!"
                    B6_id = "Bingo !!!"
                    C6_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    B6_id = "Bingo !!!"
                    B7_id = "Bingo !!!"
                    B8_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    C6_id = "Bingo !!!"
                    B6_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    B6_id = "Bingo !!!"
                    B7_id = "Bingo !!!"
                End If
            End If
            myloc = B6.Location
        ElseIf B7.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F7_id = "Bingo !!!"
                    B7_id = "Bingo !!!"
                    C7_id = "Bingo !!!"
                    D7_id = "Bingo !!!"
                    E7_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A6_id = "Bingo !!!"
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E7_id = "Bingo !!!"
                    B7_id = "Bingo !!!"
                    C7_id = "Bingo !!!"
                    D7_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    B7_id = "Bingo !!!"
                    B8_id = "Bingo !!!"
                    B9_id = "Bingo !!!"
                    B10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    D7_id = "Bingo !!!"
                    B7_id = "Bingo !!!"
                    C7_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    B7_id = "Bingo !!!"
                    B8_id = "Bingo !!!"
                    B9_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    C7_id = "Bingo !!!"
                    B7_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    B7_id = "Bingo !!!"
                    B8_id = "Bingo !!!"
                End If
            End If
            myloc = B7.Location
        ElseIf B8.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F8_id = "Bingo !!!"
                    B8_id = "Bingo !!!"
                    C8_id = "Bingo !!!"
                    D8_id = "Bingo !!!"
                    E8_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A6_id = "Bingo !!!"
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E8_id = "Bingo !!!"
                    B8_id = "Bingo !!!"
                    C8_id = "Bingo !!!"
                    D8_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    D8_id = "Bingo !!!"
                    B8_id = "Bingo !!!"
                    C8_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    B8_id = "Bingo !!!"
                    B9_id = "Bingo !!!"
                    B10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    C8_id = "Bingo !!!"
                    B8_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    B8_id = "Bingo !!!"
                    B9_id = "Bingo !!!"
                End If
            End If
            myloc = B8.Location
        ElseIf B9.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F9_id = "Bingo !!!"
                    B9_id = "Bingo !!!"
                    C9_id = "Bingo !!!"
                    D9_id = "Bingo !!!"
                    E9_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A6_id = "Bingo !!!"
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E9_id = "Bingo !!!"
                    B9_id = "Bingo !!!"
                    C9_id = "Bingo !!!"
                    D9_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    D9_id = "Bingo !!!"
                    B9_id = "Bingo !!!"
                    C9_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    C9_id = "Bingo !!!"
                    B9_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    B9_id = "Bingo !!!"
                    B10_id = "Bingo !!!"
                End If
            End If
            myloc = B9.Location
        ElseIf B10.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F10_id = "Bingo !!!"
                    B10_id = "Bingo !!!"
                    C10_id = "Bingo !!!"
                    D10_id = "Bingo !!!"
                    E10_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A6_id = "Bingo !!!"
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E10_id = "Bingo !!!"
                    B10_id = "Bingo !!!"
                    C10_id = "Bingo !!!"
                    D10_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    D10_id = "Bingo !!!"
                    B10_id = "Bingo !!!"
                    C10_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    C10_id = "Bingo !!!"
                    B10_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            End If
            myloc = B10.Location
        ElseIf C1.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G1_id = "Bingo !!!"
                    C1_id = "Bingo !!!"
                    D1_id = "Bingo !!!"
                    E1_id = "Bingo !!!"
                    F1_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    C1_id = "Bingo !!!"
                    C2_id = "Bingo !!!"
                    C3_id = "Bingo !!!"
                    C4_id = "Bingo !!!"
                    C5_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F1_id = "Bingo !!!"
                    C1_id = "Bingo !!!"
                    D1_id = "Bingo !!!"
                    E1_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    C1_id = "Bingo !!!"
                    C2_id = "Bingo !!!"
                    C3_id = "Bingo !!!"
                    C4_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E1_id = "Bingo !!!"
                    C1_id = "Bingo !!!"
                    D1_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    C1_id = "Bingo !!!"
                    C2_id = "Bingo !!!"
                    C3_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    D1_id = "Bingo !!!"
                    C1_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    C1_id = "Bingo !!!"
                    C2_id = "Bingo !!!"
                End If
            End If
            myloc = C1.Location
        ElseIf C2.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G2_id = "Bingo !!!"
                    C2_id = "Bingo !!!"
                    D2_id = "Bingo !!!"
                    E2_id = "Bingo !!!"
                    F2_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    C2_id = "Bingo !!!"
                    C3_id = "Bingo !!!"
                    C4_id = "Bingo !!!"
                    C5_id = "Bingo !!!"
                    C6_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F2_id = "Bingo !!!"
                    C2_id = "Bingo !!!"
                    D2_id = "Bingo !!!"
                    E2_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    C2_id = "Bingo !!!"
                    C3_id = "Bingo !!!"
                    C4_id = "Bingo !!!"
                    C5_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E2_id = "Bingo !!!"
                    C2_id = "Bingo !!!"
                    D2_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    C2_id = "Bingo !!!"
                    C3_id = "Bingo !!!"
                    C4_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    D2_id = "Bingo !!!"
                    C2_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    C2_id = "Bingo !!!"
                    C3_id = "Bingo !!!"
                End If
            End If
            myloc = C2.Location
        ElseIf C3.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G3_id = "Bingo !!!"
                    C3_id = "Bingo !!!"
                    D3_id = "Bingo !!!"
                    E3_id = "Bingo !!!"
                    F3_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    C3_id = "Bingo !!!"
                    C4_id = "Bingo !!!"
                    C5_id = "Bingo !!!"
                    C6_id = "Bingo !!!"
                    C7_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F3_id = "Bingo !!!"
                    C3_id = "Bingo !!!"
                    D3_id = "Bingo !!!"
                    E3_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    C3_id = "Bingo !!!"
                    C4_id = "Bingo !!!"
                    C5_id = "Bingo !!!"
                    C6_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E3_id = "Bingo !!!"
                    C3_id = "Bingo !!!"
                    D3_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    C3_id = "Bingo !!!"
                    C4_id = "Bingo !!!"
                    C5_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    D3_id = "Bingo !!!"
                    C3_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    C3_id = "Bingo !!!"
                    C4_id = "Bingo !!!"
                End If
            End If
            myloc = C3.Location
        ElseIf C4.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F4_id = "Bingo !!!"
                    G4_id = "Bingo !!!"
                    C4_id = "Bingo !!!"
                    D4_id = "Bingo !!!"
                    E4_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    C4_id = "Bingo !!!"
                    C5_id = "Bingo !!!"
                    C6_id = "Bingo !!!"
                    C7_id = "Bingo !!!"
                    C8_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E4_id = "Bingo !!!"
                    F4_id = "Bingo !!!"
                    C4_id = "Bingo !!!"
                    D4_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    C4_id = "Bingo !!!"
                    C5_id = "Bingo !!!"
                    C6_id = "Bingo !!!"
                    C7_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    D4_id = "Bingo !!!"
                    E4_id = "Bingo !!!"
                    C4_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    C4_id = "Bingo !!!"
                    C5_id = "Bingo !!!"
                    C6_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    C4_id = "Bingo !!!"
                    D4_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    C4_id = "Bingo !!!"
                    C5_id = "Bingo !!!"
                End If
            End If
            myloc = C4.Location
        ElseIf C5.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F5_id = "Bingo !!!"
                    G5_id = "Bingo !!!"
                    C5_id = "Bingo !!!"
                    D5_id = "Bingo !!!"
                    E5_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    C5_id = "Bingo !!!"
                    C6_id = "Bingo !!!"
                    C7_id = "Bingo !!!"
                    C8_id = "Bingo !!!"
                    C9_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E5_id = "Bingo !!!"
                    F5_id = "Bingo !!!"
                    C5_id = "Bingo !!!"
                    D5_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    C5_id = "Bingo !!!"
                    C6_id = "Bingo !!!"
                    C7_id = "Bingo !!!"
                    C8_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    D5_id = "Bingo !!!"
                    E5_id = "Bingo !!!"
                    C5_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    C5_id = "Bingo !!!"
                    C6_id = "Bingo !!!"
                    C7_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    C5_id = "Bingo !!!"
                    D5_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    C5_id = "Bingo !!!"
                    C6_id = "Bingo !!!"
                End If
            End If
            myloc = C5.Location
        ElseIf C6.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F6_id = "Bingo !!!"
                    G6_id = "Bingo !!!"
                    C6_id = "Bingo !!!"
                    D6_id = "Bingo !!!"
                    E6_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    C6_id = "Bingo !!!"
                    C7_id = "Bingo !!!"
                    C8_id = "Bingo !!!"
                    C9_id = "Bingo !!!"
                    C10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E6_id = "Bingo !!!"
                    F6_id = "Bingo !!!"
                    C6_id = "Bingo !!!"
                    D6_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    C6_id = "Bingo !!!"
                    C7_id = "Bingo !!!"
                    C8_id = "Bingo !!!"
                    C9_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    D6_id = "Bingo !!!"
                    E6_id = "Bingo !!!"
                    C6_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    C6_id = "Bingo !!!"
                    C7_id = "Bingo !!!"
                    C8_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    C6_id = "Bingo !!!"
                    D6_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    C6_id = "Bingo !!!"
                    C7_id = "Bingo !!!"
                End If
            End If
            myloc = C6.Location
        ElseIf C7.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F7_id = "Bingo !!!"
                    G7_id = "Bingo !!!"
                    C7_id = "Bingo !!!"
                    D7_id = "Bingo !!!"
                    E7_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A6_id = "Bingo !!!"
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E7_id = "Bingo !!!"
                    F7_id = "Bingo !!!"
                    C7_id = "Bingo !!!"
                    D7_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    C7_id = "Bingo !!!"
                    C8_id = "Bingo !!!"
                    C9_id = "Bingo !!!"
                    C10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    D7_id = "Bingo !!!"
                    E7_id = "Bingo !!!"
                    C7_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    C7_id = "Bingo !!!"
                    C8_id = "Bingo !!!"
                    C9_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    C7_id = "Bingo !!!"
                    D7_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    C7_id = "Bingo !!!"
                    C8_id = "Bingo !!!"
                End If
            End If
            myloc = C7.Location
        ElseIf C8.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F8_id = "Bingo !!!"
                    G8_id = "Bingo !!!"
                    C8_id = "Bingo !!!"
                    D8_id = "Bingo !!!"
                    E8_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A6_id = "Bingo !!!"
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E8_id = "Bingo !!!"
                    F8_id = "Bingo !!!"
                    C8_id = "Bingo !!!"
                    D8_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    D8_id = "Bingo !!!"
                    E8_id = "Bingo !!!"
                    C8_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    C8_id = "Bingo !!!"
                    C9_id = "Bingo !!!"
                    C10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    C8_id = "Bingo !!!"
                    D8_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    C8_id = "Bingo !!!"
                    C9_id = "Bingo !!!"
                End If
            End If
            myloc = C8.Location
        ElseIf C9.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F9_id = "Bingo !!!"
                    G9_id = "Bingo !!!"
                    C9_id = "Bingo !!!"
                    D9_id = "Bingo !!!"
                    E9_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A6_id = "Bingo !!!"
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E9_id = "Bingo !!!"
                    F9_id = "Bingo !!!"
                    C9_id = "Bingo !!!"
                    D9_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    D9_id = "Bingo !!!"
                    E9_id = "Bingo !!!"
                    C9_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    C9_id = "Bingo !!!"
                    D9_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    C9_id = "Bingo !!!"
                    C10_id = "Bingo !!!"
                End If
            End If
            myloc = C9.Location
        ElseIf C10.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F10_id = "Bingo !!!"
                    G10_id = "Bingo !!!"
                    C10_id = "Bingo !!!"
                    D10_id = "Bingo !!!"
                    E10_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A6_id = "Bingo !!!"
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E10_id = "Bingo !!!"
                    F10_id = "Bingo !!!"
                    C10_id = "Bingo !!!"
                    D10_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    D10_id = "Bingo !!!"
                    E10_id = "Bingo !!!"
                    C10_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    C10_id = "Bingo !!!"
                    D10_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            End If
            myloc = C10.Location
        ElseIf D1.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G1_id = "Bingo !!!"
                    H1_id = "Bingo !!!"
                    D1_id = "Bingo !!!"
                    E1_id = "Bingo !!!"
                    F1_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    D1_id = "Bingo !!!"
                    D2_id = "Bingo !!!"
                    D3_id = "Bingo !!!"
                    D4_id = "Bingo !!!"
                    D5_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F1_id = "Bingo !!!"
                    G1_id = "Bingo !!!"
                    D1_id = "Bingo !!!"
                    E1_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    D1_id = "Bingo !!!"
                    D2_id = "Bingo !!!"
                    D3_id = "Bingo !!!"
                    D4_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E1_id = "Bingo !!!"
                    F1_id = "Bingo !!!"
                    D1_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    D1_id = "Bingo !!!"
                    D2_id = "Bingo !!!"
                    D3_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    D1_id = "Bingo !!!"
                    E1_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    D1_id = "Bingo !!!"
                    D2_id = "Bingo !!!"
                End If
            End If
            myloc = D1.Location
        ElseIf D2.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G2_id = "Bingo !!!"
                    H2_id = "Bingo !!!"
                    D2_id = "Bingo !!!"
                    E2_id = "Bingo !!!"
                    F2_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    D2_id = "Bingo !!!"
                    D3_id = "Bingo !!!"
                    D4_id = "Bingo !!!"
                    D5_id = "Bingo !!!"
                    D6_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F2_id = "Bingo !!!"
                    G2_id = "Bingo !!!"
                    D2_id = "Bingo !!!"
                    E2_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    D2_id = "Bingo !!!"
                    D3_id = "Bingo !!!"
                    D4_id = "Bingo !!!"
                    D5_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E2_id = "Bingo !!!"
                    F2_id = "Bingo !!!"
                    D2_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    D2_id = "Bingo !!!"
                    D3_id = "Bingo !!!"
                    D4_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    D2_id = "Bingo !!!"
                    E2_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    D2_id = "Bingo !!!"
                    D3_id = "Bingo !!!"
                End If
            End If
            myloc = D2.Location
        ElseIf D3.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G3_id = "Bingo !!!"
                    H3_id = "Bingo !!!"
                    D3_id = "Bingo !!!"
                    E3_id = "Bingo !!!"
                    F3_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    D3_id = "Bingo !!!"
                    D4_id = "Bingo !!!"
                    D5_id = "Bingo !!!"
                    D6_id = "Bingo !!!"
                    D7_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F3_id = "Bingo !!!"
                    G3_id = "Bingo !!!"
                    D3_id = "Bingo !!!"
                    E3_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    D3_id = "Bingo !!!"
                    D4_id = "Bingo !!!"
                    D5_id = "Bingo !!!"
                    D6_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E3_id = "Bingo !!!"
                    F3_id = "Bingo !!!"
                    D3_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    D3_id = "Bingo !!!"
                    D4_id = "Bingo !!!"
                    D5_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    D3_id = "Bingo !!!"
                    E3_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    D3_id = "Bingo !!!"
                    D4_id = "Bingo !!!"
                End If
            End If
            myloc = D3.Location
        ElseIf D4.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F4_id = "Bingo !!!"
                    G4_id = "Bingo !!!"
                    H4_id = "Bingo !!!"
                    D4_id = "Bingo !!!"
                    E4_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    D4_id = "Bingo !!!"
                    D5_id = "Bingo !!!"
                    D6_id = "Bingo !!!"
                    D7_id = "Bingo !!!"
                    D8_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E4_id = "Bingo !!!"
                    F4_id = "Bingo !!!"
                    G4_id = "Bingo !!!"
                    D4_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    D4_id = "Bingo !!!"
                    D5_id = "Bingo !!!"
                    D6_id = "Bingo !!!"
                    D7_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    D4_id = "Bingo !!!"
                    E4_id = "Bingo !!!"
                    F4_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    D4_id = "Bingo !!!"
                    D5_id = "Bingo !!!"
                    D6_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E4_id = "Bingo !!!"
                    D4_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    D4_id = "Bingo !!!"
                    D5_id = "Bingo !!!"
                End If
            End If
            myloc = D4.Location
        ElseIf D5.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F5_id = "Bingo !!!"
                    G5_id = "Bingo !!!"
                    H5_id = "Bingo !!!"
                    D5_id = "Bingo !!!"
                    E5_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    D5_id = "Bingo !!!"
                    D6_id = "Bingo !!!"
                    D7_id = "Bingo !!!"
                    D8_id = "Bingo !!!"
                    D9_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E5_id = "Bingo !!!"
                    F5_id = "Bingo !!!"
                    G5_id = "Bingo !!!"
                    D5_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    D5_id = "Bingo !!!"
                    D6_id = "Bingo !!!"
                    D7_id = "Bingo !!!"
                    D8_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    D5_id = "Bingo !!!"
                    E5_id = "Bingo !!!"
                    F5_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    D5_id = "Bingo !!!"
                    D6_id = "Bingo !!!"
                    D7_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E5_id = "Bingo !!!"
                    D5_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    D5_id = "Bingo !!!"
                    D6_id = "Bingo !!!"
                End If
            End If
            myloc = D5.Location
        ElseIf D6.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F6_id = "Bingo !!!"
                    G6_id = "Bingo !!!"
                    H6_id = "Bingo !!!"
                    D6_id = "Bingo !!!"
                    E6_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    D6_id = "Bingo !!!"
                    D7_id = "Bingo !!!"
                    D8_id = "Bingo !!!"
                    D9_id = "Bingo !!!"
                    D10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E6_id = "Bingo !!!"
                    F6_id = "Bingo !!!"
                    G6_id = "Bingo !!!"
                    D6_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    D6_id = "Bingo !!!"
                    D7_id = "Bingo !!!"
                    D8_id = "Bingo !!!"
                    D9_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    D6_id = "Bingo !!!"
                    E6_id = "Bingo !!!"
                    F6_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    D6_id = "Bingo !!!"
                    D7_id = "Bingo !!!"
                    D8_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E6_id = "Bingo !!!"
                    D6_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    D6_id = "Bingo !!!"
                    D7_id = "Bingo !!!"
                End If
            End If
            myloc = D6.Location
        ElseIf D7.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F7_id = "Bingo !!!"
                    G7_id = "Bingo !!!"
                    H7_id = "Bingo !!!"
                    D7_id = "Bingo !!!"
                    E7_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A6_id = "Bingo !!!"
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E7_id = "Bingo !!!"
                    F7_id = "Bingo !!!"
                    G7_id = "Bingo !!!"
                    D7_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    D7_id = "Bingo !!!"
                    D8_id = "Bingo !!!"
                    D9_id = "Bingo !!!"
                    D10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    D7_id = "Bingo !!!"
                    E7_id = "Bingo !!!"
                    F7_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    D7_id = "Bingo !!!"
                    D8_id = "Bingo !!!"
                    D9_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E7_id = "Bingo !!!"
                    D7_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    D7_id = "Bingo !!!"
                    D8_id = "Bingo !!!"
                End If
            End If
            myloc = D7.Location
        ElseIf D8.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F8_id = "Bingo !!!"
                    G8_id = "Bingo !!!"
                    H8_id = "Bingo !!!"
                    D8_id = "Bingo !!!"
                    E8_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A6_id = "Bingo !!!"
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E8_id = "Bingo !!!"
                    F8_id = "Bingo !!!"
                    G8_id = "Bingo !!!"
                    D8_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    D8_id = "Bingo !!!"
                    E8_id = "Bingo !!!"
                    F8_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    D8_id = "Bingo !!!"
                    D9_id = "Bingo !!!"
                    D10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E8_id = "Bingo !!!"
                    D8_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    D8_id = "Bingo !!!"
                    D9_id = "Bingo !!!"
                End If
            End If
            myloc = D8.Location
        ElseIf D9.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F9_id = "Bingo !!!"
                    G9_id = "Bingo !!!"
                    H9_id = "Bingo !!!"
                    D9_id = "Bingo !!!"
                    E9_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A6_id = "Bingo !!!"
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E9_id = "Bingo !!!"
                    F9_id = "Bingo !!!"
                    G9_id = "Bingo !!!"
                    D9_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    D9_id = "Bingo !!!"
                    E9_id = "Bingo !!!"
                    F9_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E9_id = "Bingo !!!"
                    D9_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    D9_id = "Bingo !!!"
                    D10_id = "Bingo !!!"
                End If
            End If
            myloc = D9.Location
        ElseIf D10.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F10_id = "Bingo !!!"
                    G10_id = "Bingo !!!"
                    H10_id = "Bingo !!!"
                    D10_id = "Bingo !!!"
                    E10_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A6_id = "Bingo !!!"
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E10_id = "Bingo !!!"
                    F10_id = "Bingo !!!"
                    G10_id = "Bingo !!!"
                    D10_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    D10_id = "Bingo !!!"
                    E10_id = "Bingo !!!"
                    F10_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E10_id = "Bingo !!!"
                    D10_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            End If
            myloc = D10.Location
        ElseIf E1.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G1_id = "Bingo !!!"
                    H1_id = "Bingo !!!"
                    I1_id = "Bingo !!!"
                    E1_id = "Bingo !!!"
                    F1_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    E1_id = "Bingo !!!"
                    E2_id = "Bingo !!!"
                    E3_id = "Bingo !!!"
                    E4_id = "Bingo !!!"
                    E5_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F1_id = "Bingo !!!"
                    G1_id = "Bingo !!!"
                    H1_id = "Bingo !!!"
                    E1_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    E1_id = "Bingo !!!"
                    E2_id = "Bingo !!!"
                    E3_id = "Bingo !!!"
                    E4_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E1_id = "Bingo !!!"
                    F1_id = "Bingo !!!"
                    G1_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    E1_id = "Bingo !!!"
                    E2_id = "Bingo !!!"
                    E3_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F1_id = "Bingo !!!"
                    E1_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    E1_id = "Bingo !!!"
                    E2_id = "Bingo !!!"
                End If
            End If
            myloc = E1.Location
        ElseIf E2.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G2_id = "Bingo !!!"
                    H2_id = "Bingo !!!"
                    I2_id = "Bingo !!!"
                    E2_id = "Bingo !!!"
                    F2_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    E2_id = "Bingo !!!"
                    E3_id = "Bingo !!!"
                    E4_id = "Bingo !!!"
                    E5_id = "Bingo !!!"
                    E6_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F2_id = "Bingo !!!"
                    G2_id = "Bingo !!!"
                    H2_id = "Bingo !!!"
                    E2_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    E2_id = "Bingo !!!"
                    E3_id = "Bingo !!!"
                    E4_id = "Bingo !!!"
                    E5_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E2_id = "Bingo !!!"
                    F2_id = "Bingo !!!"
                    G2_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    E2_id = "Bingo !!!"
                    E3_id = "Bingo !!!"
                    E4_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F2_id = "Bingo !!!"
                    E2_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    E2_id = "Bingo !!!"
                    E3_id = "Bingo !!!"
                End If
            End If
            myloc = E2.Location
        ElseIf E3.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G3_id = "Bingo !!!"
                    H3_id = "Bingo !!!"
                    I3_id = "Bingo !!!"
                    E3_id = "Bingo !!!"
                    F3_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    E3_id = "Bingo !!!"
                    E4_id = "Bingo !!!"
                    E5_id = "Bingo !!!"
                    E6_id = "Bingo !!!"
                    E7_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F3_id = "Bingo !!!"
                    G3_id = "Bingo !!!"
                    H3_id = "Bingo !!!"
                    E3_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    E3_id = "Bingo !!!"
                    E4_id = "Bingo !!!"
                    E5_id = "Bingo !!!"
                    E6_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E3_id = "Bingo !!!"
                    F3_id = "Bingo !!!"
                    G3_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    E3_id = "Bingo !!!"
                    E4_id = "Bingo !!!"
                    E5_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F3_id = "Bingo !!!"
                    E3_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    E3_id = "Bingo !!!"
                    E4_id = "Bingo !!!"
                End If
            End If
            myloc = E3.Location
        ElseIf E4.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F4_id = "Bingo !!!"
                    G4_id = "Bingo !!!"
                    H4_id = "Bingo !!!"
                    I4_id = "Bingo !!!"
                    E4_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    E4_id = "Bingo !!!"
                    E5_id = "Bingo !!!"
                    E6_id = "Bingo !!!"
                    E7_id = "Bingo !!!"
                    E8_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E4_id = "Bingo !!!"
                    F4_id = "Bingo !!!"
                    G4_id = "Bingo !!!"
                    H4_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    E4_id = "Bingo !!!"
                    E5_id = "Bingo !!!"
                    E6_id = "Bingo !!!"
                    E7_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G4_id = "Bingo !!!"
                    E4_id = "Bingo !!!"
                    F4_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    E4_id = "Bingo !!!"
                    E5_id = "Bingo !!!"
                    E6_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E4_id = "Bingo !!!"
                    F4_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    E4_id = "Bingo !!!"
                    E5_id = "Bingo !!!"
                End If
            End If
            myloc = E4.Location
        ElseIf E5.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F5_id = "Bingo !!!"
                    G5_id = "Bingo !!!"
                    H5_id = "Bingo !!!"
                    I5_id = "Bingo !!!"
                    E5_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    E5_id = "Bingo !!!"
                    E6_id = "Bingo !!!"
                    E7_id = "Bingo !!!"
                    E8_id = "Bingo !!!"
                    E9_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E5_id = "Bingo !!!"
                    F5_id = "Bingo !!!"
                    G5_id = "Bingo !!!"
                    H5_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    E5_id = "Bingo !!!"
                    E6_id = "Bingo !!!"
                    E7_id = "Bingo !!!"
                    E8_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G5_id = "Bingo !!!"
                    E5_id = "Bingo !!!"
                    F5_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    E5_id = "Bingo !!!"
                    E6_id = "Bingo !!!"
                    E7_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E5_id = "Bingo !!!"
                    F5_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    E5_id = "Bingo !!!"
                    E6_id = "Bingo !!!"
                End If
            End If
            myloc = E5.Location
        ElseIf E6.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F6_id = "Bingo !!!"
                    G6_id = "Bingo !!!"
                    H6_id = "Bingo !!!"
                    I6_id = "Bingo !!!"
                    E6_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    E6_id = "Bingo !!!"
                    E7_id = "Bingo !!!"
                    E8_id = "Bingo !!!"
                    E9_id = "Bingo !!!"
                    E10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E6_id = "Bingo !!!"
                    F6_id = "Bingo !!!"
                    G6_id = "Bingo !!!"
                    H6_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    E6_id = "Bingo !!!"
                    E7_id = "Bingo !!!"
                    E8_id = "Bingo !!!"
                    E9_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G6_id = "Bingo !!!"
                    E6_id = "Bingo !!!"
                    F6_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    E6_id = "Bingo !!!"
                    E7_id = "Bingo !!!"
                    E8_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E6_id = "Bingo !!!"
                    F6_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    E6_id = "Bingo !!!"
                    E7_id = "Bingo !!!"
                End If
            End If
            myloc = E6.Location
        ElseIf E7.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F7_id = "Bingo !!!"
                    G7_id = "Bingo !!!"
                    H7_id = "Bingo !!!"
                    I7_id = "Bingo !!!"
                    E7_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A6_id = "Bingo !!!"
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E7_id = "Bingo !!!"
                    F7_id = "Bingo !!!"
                    G7_id = "Bingo !!!"
                    H7_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    E7_id = "Bingo !!!"
                    E8_id = "Bingo !!!"
                    E9_id = "Bingo !!!"
                    E10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G7_id = "Bingo !!!"
                    E7_id = "Bingo !!!"
                    F7_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    E7_id = "Bingo !!!"
                    E8_id = "Bingo !!!"
                    E9_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E7_id = "Bingo !!!"
                    F7_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    E7_id = "Bingo !!!"
                    E8_id = "Bingo !!!"
                End If
            End If
            myloc = E7.Location
        ElseIf E8.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F8_id = "Bingo !!!"
                    G8_id = "Bingo !!!"
                    H8_id = "Bingo !!!"
                    I8_id = "Bingo !!!"
                    E8_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A6_id = "Bingo !!!"
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E8_id = "Bingo !!!"
                    F8_id = "Bingo !!!"
                    G8_id = "Bingo !!!"
                    H8_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G8_id = "Bingo !!!"
                    E8_id = "Bingo !!!"
                    F8_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    E8_id = "Bingo !!!"
                    E9_id = "Bingo !!!"
                    E10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E8_id = "Bingo !!!"
                    F8_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    E8_id = "Bingo !!!"
                    E9_id = "Bingo !!!"
                End If
            End If
            myloc = E8.Location
        ElseIf E9.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F9_id = "Bingo !!!"
                    G9_id = "Bingo !!!"
                    H9_id = "Bingo !!!"
                    I9_id = "Bingo !!!"
                    E9_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A6_id = "Bingo !!!"
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E9_id = "Bingo !!!"
                    F9_id = "Bingo !!!"
                    G9_id = "Bingo !!!"
                    H9_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G9_id = "Bingo !!!"
                    E9_id = "Bingo !!!"
                    F9_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E9_id = "Bingo !!!"
                    F9_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    E9_id = "Bingo !!!"
                    E10_id = "Bingo !!!"
                End If
            End If
            myloc = E9.Location
        ElseIf E10.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F10_id = "Bingo !!!"
                    G10_id = "Bingo !!!"
                    H10_id = "Bingo !!!"
                    I10_id = "Bingo !!!"
                    E10_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A6_id = "Bingo !!!"
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E10_id = "Bingo !!!"
                    F10_id = "Bingo !!!"
                    G10_id = "Bingo !!!"
                    H10_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G10_id = "Bingo !!!"
                    E10_id = "Bingo !!!"
                    F10_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    E10_id = "Bingo !!!"
                    F10_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            End If
            myloc = E10.Location
        ElseIf F1.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G1_id = "Bingo !!!"
                    H1_id = "Bingo !!!"
                    I1_id = "Bingo !!!"
                    J1_id = "Bingo !!!"
                    F1_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    F1_id = "Bingo !!!"
                    F2_id = "Bingo !!!"
                    F3_id = "Bingo !!!"
                    F4_id = "Bingo !!!"
                    F5_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F1_id = "Bingo !!!"
                    G1_id = "Bingo !!!"
                    H1_id = "Bingo !!!"
                    I1_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    F1_id = "Bingo !!!"
                    F2_id = "Bingo !!!"
                    F3_id = "Bingo !!!"
                    F4_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    H1_id = "Bingo !!!"
                    F1_id = "Bingo !!!"
                    G1_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    F1_id = "Bingo !!!"
                    F2_id = "Bingo !!!"
                    F3_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F1_id = "Bingo !!!"
                    G1_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    F1_id = "Bingo !!!"
                    F2_id = "Bingo !!!"
                End If
            End If
            myloc = F1.Location
        ElseIf F2.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G2_id = "Bingo !!!"
                    H2_id = "Bingo !!!"
                    I2_id = "Bingo !!!"
                    J2_id = "Bingo !!!"
                    F2_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    F2_id = "Bingo !!!"
                    F3_id = "Bingo !!!"
                    F4_id = "Bingo !!!"
                    F5_id = "Bingo !!!"
                    F6_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F2_id = "Bingo !!!"
                    G2_id = "Bingo !!!"
                    H2_id = "Bingo !!!"
                    I2_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    F2_id = "Bingo !!!"
                    F3_id = "Bingo !!!"
                    F4_id = "Bingo !!!"
                    F5_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    H2_id = "Bingo !!!"
                    F2_id = "Bingo !!!"
                    G2_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    F2_id = "Bingo !!!"
                    F3_id = "Bingo !!!"
                    F4_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F2_id = "Bingo !!!"
                    G2_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    F2_id = "Bingo !!!"
                    F3_id = "Bingo !!!"
                End If
            End If
            myloc = F2.Location
        ElseIf F3.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G3_id = "Bingo !!!"
                    H3_id = "Bingo !!!"
                    I3_id = "Bingo !!!"
                    J3_id = "Bingo !!!"
                    F3_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    F3_id = "Bingo !!!"
                    F4_id = "Bingo !!!"
                    F5_id = "Bingo !!!"
                    F6_id = "Bingo !!!"
                    F7_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F3_id = "Bingo !!!"
                    G3_id = "Bingo !!!"
                    H3_id = "Bingo !!!"
                    I3_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    F3_id = "Bingo !!!"
                    F4_id = "Bingo !!!"
                    F5_id = "Bingo !!!"
                    F6_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    H3_id = "Bingo !!!"
                    F3_id = "Bingo !!!"
                    G3_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    F3_id = "Bingo !!!"
                    F4_id = "Bingo !!!"
                    F5_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F3_id = "Bingo !!!"
                    G3_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    F3_id = "Bingo !!!"
                    F4_id = "Bingo !!!"
                End If
            End If
            myloc = F3.Location
        ElseIf F4.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F4_id = "Bingo !!!"
                    G4_id = "Bingo !!!"
                    H4_id = "Bingo !!!"
                    I4_id = "Bingo !!!"
                    J4_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    F4_id = "Bingo !!!"
                    F5_id = "Bingo !!!"
                    F6_id = "Bingo !!!"
                    F7_id = "Bingo !!!"
                    F8_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    I4_id = "Bingo !!!"
                    F4_id = "Bingo !!!"
                    G4_id = "Bingo !!!"
                    H4_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    F4_id = "Bingo !!!"
                    F5_id = "Bingo !!!"
                    F6_id = "Bingo !!!"
                    F7_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G4_id = "Bingo !!!"
                    H4_id = "Bingo !!!"
                    F4_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    F4_id = "Bingo !!!"
                    F5_id = "Bingo !!!"
                    F6_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G4_id = "Bingo !!!"
                    F4_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    F4_id = "Bingo !!!"
                    F5_id = "Bingo !!!"
                End If
            End If
            myloc = F4.Location
        ElseIf F5.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F5_id = "Bingo !!!"
                    G5_id = "Bingo !!!"
                    H5_id = "Bingo !!!"
                    I5_id = "Bingo !!!"
                    J5_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    F5_id = "Bingo !!!"
                    F6_id = "Bingo !!!"
                    F7_id = "Bingo !!!"
                    F8_id = "Bingo !!!"
                    F9_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    I5_id = "Bingo !!!"
                    F5_id = "Bingo !!!"
                    G5_id = "Bingo !!!"
                    H5_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    F5_id = "Bingo !!!"
                    F6_id = "Bingo !!!"
                    F7_id = "Bingo !!!"
                    F8_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G5_id = "Bingo !!!"
                    H5_id = "Bingo !!!"
                    F5_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    F5_id = "Bingo !!!"
                    F6_id = "Bingo !!!"
                    F7_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F5_id = "Bingo !!!"
                    G5_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    F5_id = "Bingo !!!"
                    F6_id = "Bingo !!!"
                End If
            End If
            myloc = F5.Location
        ElseIf F6.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F6_id = "Bingo !!!"
                    G6_id = "Bingo !!!"
                    H6_id = "Bingo !!!"
                    I6_id = "Bingo !!!"
                    J6_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    F6_id = "Bingo !!!"
                    F7_id = "Bingo !!!"
                    F8_id = "Bingo !!!"
                    F9_id = "Bingo !!!"
                    F10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    I6_id = "Bingo !!!"
                    F6_id = "Bingo !!!"
                    G6_id = "Bingo !!!"
                    H6_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    F6_id = "Bingo !!!"
                    F7_id = "Bingo !!!"
                    F8_id = "Bingo !!!"
                    F9_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G6_id = "Bingo !!!"
                    H6_id = "Bingo !!!"
                    F6_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    F6_id = "Bingo !!!"
                    F7_id = "Bingo !!!"
                    F8_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G6_id = "Bingo !!!"
                    F6_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    F6_id = "Bingo !!!"
                    F7_id = "Bingo !!!"
                End If
            End If
            myloc = F6.Location
        ElseIf F7.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F7_id = "Bingo !!!"
                    G7_id = "Bingo !!!"
                    H7_id = "Bingo !!!"
                    I7_id = "Bingo !!!"
                    J7_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A6_id = "Bingo !!!"
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    I7_id = "Bingo !!!"
                    F7_id = "Bingo !!!"
                    G7_id = "Bingo !!!"
                    H7_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    F7_id = "Bingo !!!"
                    F8_id = "Bingo !!!"
                    F9_id = "Bingo !!!"
                    F10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G7_id = "Bingo !!!"
                    H7_id = "Bingo !!!"
                    F7_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    F7_id = "Bingo !!!"
                    F8_id = "Bingo !!!"
                    F9_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G7_id = "Bingo !!!"
                    F7_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    F7_id = "Bingo !!!"
                    F8_id = "Bingo !!!"
                End If
            End If
            myloc = F7.Location
        ElseIf F8.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F8_id = "Bingo !!!"
                    G8_id = "Bingo !!!"
                    H8_id = "Bingo !!!"
                    I8_id = "Bingo !!!"
                    J8_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A6_id = "Bingo !!!"
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    I8_id = "Bingo !!!"
                    F8_id = "Bingo !!!"
                    G8_id = "Bingo !!!"
                    H8_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G8_id = "Bingo !!!"
                    H8_id = "Bingo !!!"
                    F8_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    F8_id = "Bingo !!!"
                    F9_id = "Bingo !!!"
                    F10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G8_id = "Bingo !!!"
                    F8_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    F8_id = "Bingo !!!"
                    F9_id = "Bingo !!!"
                End If
            End If
            myloc = F8.Location
        ElseIf F9.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F9_id = "Bingo !!!"
                    G9_id = "Bingo !!!"
                    H9_id = "Bingo !!!"
                    I9_id = "Bingo !!!"
                    J9_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A6_id = "Bingo !!!"
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    I9_id = "Bingo !!!"
                    F9_id = "Bingo !!!"
                    G9_id = "Bingo !!!"
                    H9_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G9_id = "Bingo !!!"
                    H9_id = "Bingo !!!"
                    F9_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G9_id = "Bingo !!!"
                    F9_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    F9_id = "Bingo !!!"
                    F10_id = "Bingo !!!"
                End If
            End If
            myloc = F9.Location
        ElseIf F10.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                If ComboBox_orient.Text = "Vertical" Then
                    F10_id = "Bingo !!!"
                    G10_id = "Bingo !!!"
                    H10_id = "Bingo !!!"
                    I10_id = "Bingo !!!"
                    J10_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A6_id = "Bingo !!!"
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    I10_id = "Bingo !!!"
                    F10_id = "Bingo !!!"
                    G10_id = "Bingo !!!"
                    H10_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G10_id = "Bingo !!!"
                    H10_id = "Bingo !!!"
                    F10_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G10_id = "Bingo !!!"
                    F10_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            End If
            myloc = F10.Location
        ElseIf G1.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    G1_id = "Bingo !!!"
                '    H1_id = "Bingo !!!"
                '    I1_id = "Bingo !!!"
                '    J1_id = "Bingo !!!"
                '    F1_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    G1_id = "Bingo !!!"
                    G2_id = "Bingo !!!"
                    G3_id = "Bingo !!!"
                    G4_id = "Bingo !!!"
                    G5_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    J1_id = "Bingo !!!"
                    G1_id = "Bingo !!!"
                    H1_id = "Bingo !!!"
                    I1_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    G1_id = "Bingo !!!"
                    G2_id = "Bingo !!!"
                    G3_id = "Bingo !!!"
                    G4_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    H1_id = "Bingo !!!"
                    I1_id = "Bingo !!!"
                    G1_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    G1_id = "Bingo !!!"
                    G2_id = "Bingo !!!"
                    G3_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    H1_id = "Bingo !!!"
                    G1_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    G1_id = "Bingo !!!"
                    G2_id = "Bingo !!!"
                End If
            End If
            myloc = G1.Location
        ElseIf G2.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    G2_id = "Bingo !!!"
                '    H2_id = "Bingo !!!"
                '    I2_id = "Bingo !!!"
                '    J2_id = "Bingo !!!"
                '    F2_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    G2_id = "Bingo !!!"
                    G3_id = "Bingo !!!"
                    G4_id = "Bingo !!!"
                    G5_id = "Bingo !!!"
                    G6_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    J2_id = "Bingo !!!"
                    G2_id = "Bingo !!!"
                    H2_id = "Bingo !!!"
                    I2_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    G2_id = "Bingo !!!"
                    G3_id = "Bingo !!!"
                    G4_id = "Bingo !!!"
                    G5_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    H2_id = "Bingo !!!"
                    I2_id = "Bingo !!!"
                    G2_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    G2_id = "Bingo !!!"
                    G3_id = "Bingo !!!"
                    G4_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    H2_id = "Bingo !!!"
                    G2_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    G2_id = "Bingo !!!"
                    G3_id = "Bingo !!!"
                End If
            End If
            myloc = G2.Location
        ElseIf G3.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    G3_id = "Bingo !!!"
                '    H3_id = "Bingo !!!"
                '    I3_id = "Bingo !!!"
                '    J3_id = "Bingo !!!"
                '    F3_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    G3_id = "Bingo !!!"
                    G4_id = "Bingo !!!"
                    G5_id = "Bingo !!!"
                    G6_id = "Bingo !!!"
                    G7_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    J3_id = "Bingo !!!"
                    G3_id = "Bingo !!!"
                    H3_id = "Bingo !!!"
                    I3_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    G3_id = "Bingo !!!"
                    G4_id = "Bingo !!!"
                    G5_id = "Bingo !!!"
                    G6_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    H3_id = "Bingo !!!"
                    I3_id = "Bingo !!!"
                    G3_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    G3_id = "Bingo !!!"
                    G4_id = "Bingo !!!"
                    G5_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    H3_id = "Bingo !!!"
                    G3_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    G3_id = "Bingo !!!"
                    G4_id = "Bingo !!!"
                End If
            End If
            myloc = G3.Location
        ElseIf G4.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    F4_id = "Bingo !!!"
                '    G4_id = "Bingo !!!"
                '    H4_id = "Bingo !!!"
                '    I4_id = "Bingo !!!"
                '    J4_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    G4_id = "Bingo !!!"
                    G5_id = "Bingo !!!"
                    G6_id = "Bingo !!!"
                    G7_id = "Bingo !!!"
                    G8_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    I4_id = "Bingo !!!"
                    J4_id = "Bingo !!!"
                    G4_id = "Bingo !!!"
                    H4_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    G4_id = "Bingo !!!"
                    G5_id = "Bingo !!!"
                    G6_id = "Bingo !!!"
                    G7_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G4_id = "Bingo !!!"
                    H4_id = "Bingo !!!"
                    I4_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    G4_id = "Bingo !!!"
                    G5_id = "Bingo !!!"
                    G6_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G4_id = "Bingo !!!"
                    H4_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    G4_id = "Bingo !!!"
                    G5_id = "Bingo !!!"
                End If
            End If
            myloc = G4.Location
        ElseIf G5.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    F5_id = "Bingo !!!"
                '    G5_id = "Bingo !!!"
                '    H5_id = "Bingo !!!"
                '    I5_id = "Bingo !!!"
                '    J5_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    G5_id = "Bingo !!!"
                    G6_id = "Bingo !!!"
                    G7_id = "Bingo !!!"
                    G8_id = "Bingo !!!"
                    G9_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    I5_id = "Bingo !!!"
                    J5_id = "Bingo !!!"
                    G5_id = "Bingo !!!"
                    H5_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    G5_id = "Bingo !!!"
                    G6_id = "Bingo !!!"
                    G7_id = "Bingo !!!"
                    G8_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G5_id = "Bingo !!!"
                    H5_id = "Bingo !!!"
                    I5_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    G5_id = "Bingo !!!"
                    G6_id = "Bingo !!!"
                    G7_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    H5_id = "Bingo !!!"
                    G5_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    G5_id = "Bingo !!!"
                    G6_id = "Bingo !!!"
                End If
            End If
            myloc = G5.Location
        ElseIf G6.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    F6_id = "Bingo !!!"
                '    G6_id = "Bingo !!!"
                '    H6_id = "Bingo !!!"
                '    I6_id = "Bingo !!!"
                '    J6_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    G6_id = "Bingo !!!"
                    G7_id = "Bingo !!!"
                    G8_id = "Bingo !!!"
                    G9_id = "Bingo !!!"
                    G10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    I6_id = "Bingo !!!"
                    J6_id = "Bingo !!!"
                    G6_id = "Bingo !!!"
                    H6_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    G6_id = "Bingo !!!"
                    G7_id = "Bingo !!!"
                    G8_id = "Bingo !!!"
                    G9_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G6_id = "Bingo !!!"
                    H6_id = "Bingo !!!"
                    I6_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    G6_id = "Bingo !!!"
                    G7_id = "Bingo !!!"
                    G8_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G6_id = "Bingo !!!"
                    H6_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    G6_id = "Bingo !!!"
                    G7_id = "Bingo !!!"
                End If
            End If
            myloc = G6.Location
        ElseIf G7.Name = position Then
            'If ComboBox_type.Text = "Size 5" Then
            '    If ComboBox_orient.Text = "Vertical" Then
            '        F7_id = "Bingo !!!"
            '        G7_id = "Bingo !!!"
            '        H7_id = "Bingo !!!"
            '        I7_id = "Bingo !!!"
            '        J7_id = "Bingo !!!"
            '        'ElseIf ComboBox_orient.Text = "Orizontal" Then
            '        '    A6_id = "Bingo !!!"
            '        '    A7_id = "Bingo !!!"
            '        '    A8_id = "Bingo !!!"
            '        '    A9_id = "Bingo !!!"
            '        '    A10_id = "Bingo !!!"
            '    End If
            If ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    I7_id = "Bingo !!!"
                    J7_id = "Bingo !!!"
                    G7_id = "Bingo !!!"
                    H7_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    G7_id = "Bingo !!!"
                    G8_id = "Bingo !!!"
                    G9_id = "Bingo !!!"
                    G10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G7_id = "Bingo !!!"
                    H7_id = "Bingo !!!"
                    I7_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    G7_id = "Bingo !!!"
                    G8_id = "Bingo !!!"
                    G9_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G7_id = "Bingo !!!"
                    H7_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    G7_id = "Bingo !!!"
                    G8_id = "Bingo !!!"
                End If
            End If
            myloc = G7.Location
        ElseIf G8.Name = position Then
            'If ComboBox_type.Text = "Size 5" Then
            '    If ComboBox_orient.Text = "Vertical" Then
            '        F8_id = "Bingo !!!"
            '        G8_id = "Bingo !!!"
            '        H8_id = "Bingo !!!"
            '        I8_id = "Bingo !!!"
            '        J8_id = "Bingo !!!"
            '        'ElseIf ComboBox_orient.Text = "Orizontal" Then
            '        '    A6_id = "Bingo !!!"
            '        '    A7_id = "Bingo !!!"
            '        '    A8_id = "Bingo !!!"
            '        '    A9_id = "Bingo !!!"
            '        '    A10_id = "Bingo !!!"
            '    End If
            If ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    I8_id = "Bingo !!!"
                    J8_id = "Bingo !!!"
                    G8_id = "Bingo !!!"
                    H8_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G8_id = "Bingo !!!"
                    H8_id = "Bingo !!!"
                    I8_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    G8_id = "Bingo !!!"
                    G9_id = "Bingo !!!"
                    G10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G8_id = "Bingo !!!"
                    H8_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    G8_id = "Bingo !!!"
                    G9_id = "Bingo !!!"
                End If
            End If
            myloc = G8.Location
        ElseIf G9.Name = position Then
            'If ComboBox_type.Text = "Size 5" Then
            '    If ComboBox_orient.Text = "Vertical" Then
            '        F9_id = "Bingo !!!"
            '        G9_id = "Bingo !!!"
            '        H9_id = "Bingo !!!"
            '        I9_id = "Bingo !!!"
            '        J9_id = "Bingo !!!"
            '        'ElseIf ComboBox_orient.Text = "Orizontal" Then
            '        '    A6_id = "Bingo !!!"
            '        '    A7_id = "Bingo !!!"
            '        '    A8_id = "Bingo !!!"
            '        '    A9_id = "Bingo !!!"
            '        '    A10_id = "Bingo !!!"
            '    End If
            If ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    I9_id = "Bingo !!!"
                    J9_id = "Bingo !!!"
                    G9_id = "Bingo !!!"
                    H9_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G9_id = "Bingo !!!"
                    H9_id = "Bingo !!!"
                    I9_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G9_id = "Bingo !!!"
                    H9_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    G9_id = "Bingo !!!"
                    G10_id = "Bingo !!!"
                End If
            End If
            myloc = G9.Location
        ElseIf G10.Name = position Then
            'If ComboBox_type.Text = "Size 5" Then
            '    If ComboBox_orient.Text = "Vertical" Then
            '        F10_id = "Bingo !!!"
            '        G10_id = "Bingo !!!"
            '        H10_id = "Bingo !!!"
            '        I10_id = "Bingo !!!"
            '        J10_id = "Bingo !!!"
            '        'ElseIf ComboBox_orient.Text = "Orizontal" Then
            '        '    A6_id = "Bingo !!!"
            '        '    A7_id = "Bingo !!!"
            '        '    A8_id = "Bingo !!!"
            '        '    A9_id = "Bingo !!!"
            '        '    A10_id = "Bingo !!!"
            '    End If
            If ComboBox_type.Text = "Size 4" Then
                If ComboBox_orient.Text = "Vertical" Then
                    I10_id = "Bingo !!!"
                    J10_id = "Bingo !!!"
                    G10_id = "Bingo !!!"
                    H10_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A7_id = "Bingo !!!"
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G10_id = "Bingo !!!"
                    H10_id = "Bingo !!!"
                    I10_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    G10_id = "Bingo !!!"
                    H10_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            End If
            myloc = G10.Location
        ElseIf H1.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    G1_id = "Bingo !!!"
                '    H1_id = "Bingo !!!"
                '    I1_id = "Bingo !!!"
                '    J1_id = "Bingo !!!"
                '    F1_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    H1_id = "Bingo !!!"
                    H2_id = "Bingo !!!"
                    H3_id = "Bingo !!!"
                    H4_id = "Bingo !!!"
                    H5_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    J1_id = "Bingo !!!"
                '    G1_id = "Bingo !!!"
                '    H1_id = "Bingo !!!"
                '    I1_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    H1_id = "Bingo !!!"
                    H2_id = "Bingo !!!"
                    H3_id = "Bingo !!!"
                    H4_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    H1_id = "Bingo !!!"
                    I1_id = "Bingo !!!"
                    J1_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    H1_id = "Bingo !!!"
                    H2_id = "Bingo !!!"
                    H3_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    H1_id = "Bingo !!!"
                    I1_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    H1_id = "Bingo !!!"
                    H2_id = "Bingo !!!"
                End If
            End If
            myloc = H1.Location
        ElseIf H2.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    G2_id = "Bingo !!!"
                '    H2_id = "Bingo !!!"
                '    I2_id = "Bingo !!!"
                '    J2_id = "Bingo !!!"
                '    F2_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    H2_id = "Bingo !!!"
                    H3_id = "Bingo !!!"
                    H4_id = "Bingo !!!"
                    H5_id = "Bingo !!!"
                    H6_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    J2_id = "Bingo !!!"
                '    G2_id = "Bingo !!!"
                '    H2_id = "Bingo !!!"
                '    I2_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    H2_id = "Bingo !!!"
                    H3_id = "Bingo !!!"
                    H4_id = "Bingo !!!"
                    H5_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    H2_id = "Bingo !!!"
                    I2_id = "Bingo !!!"
                    J2_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    H2_id = "Bingo !!!"
                    H3_id = "Bingo !!!"
                    H4_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    H2_id = "Bingo !!!"
                    I2_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    H2_id = "Bingo !!!"
                    H3_id = "Bingo !!!"
                End If
            End If
            myloc = H2.Location
        ElseIf H3.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    G3_id = "Bingo !!!"
                '    H3_id = "Bingo !!!"
                '    I3_id = "Bingo !!!"
                '    J3_id = "Bingo !!!"
                '    F3_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    H3_id = "Bingo !!!"
                    H4_id = "Bingo !!!"
                    H5_id = "Bingo !!!"
                    H6_id = "Bingo !!!"
                    H7_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    J3_id = "Bingo !!!"
                '    G3_id = "Bingo !!!"
                '    H3_id = "Bingo !!!"
                '    I3_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    H3_id = "Bingo !!!"
                    H4_id = "Bingo !!!"
                    H5_id = "Bingo !!!"
                    H6_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    H3_id = "Bingo !!!"
                    I3_id = "Bingo !!!"
                    J3_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    H3_id = "Bingo !!!"
                    H4_id = "Bingo !!!"
                    H5_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    H3_id = "Bingo !!!"
                    I3_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    H3_id = "Bingo !!!"
                    H4_id = "Bingo !!!"
                End If
            End If
            myloc = H3.Location
        ElseIf H4.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    F4_id = "Bingo !!!"
                '    G4_id = "Bingo !!!"
                '    H4_id = "Bingo !!!"
                '    I4_id = "Bingo !!!"
                '    J4_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    H4_id = "Bingo !!!"
                    H5_id = "Bingo !!!"
                    H6_id = "Bingo !!!"
                    H7_id = "Bingo !!!"
                    H8_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    I4_id = "Bingo !!!"
                '    J4_id = "Bingo !!!"
                '    G4_id = "Bingo !!!"
                '    H4_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    H4_id = "Bingo !!!"
                    H5_id = "Bingo !!!"
                    H6_id = "Bingo !!!"
                    H7_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    J4_id = "Bingo !!!"
                    H4_id = "Bingo !!!"
                    I4_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    H4_id = "Bingo !!!"
                    H5_id = "Bingo !!!"
                    H6_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    I4_id = "Bingo !!!"
                    H4_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    H4_id = "Bingo !!!"
                    H5_id = "Bingo !!!"
                End If
            End If
            myloc = H4.Location
        ElseIf H5.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    F5_id = "Bingo !!!"
                '    G5_id = "Bingo !!!"
                '    H5_id = "Bingo !!!"
                '    I5_id = "Bingo !!!"
                '    J5_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    H5_id = "Bingo !!!"
                    H6_id = "Bingo !!!"
                    H7_id = "Bingo !!!"
                    H8_id = "Bingo !!!"
                    H9_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    I5_id = "Bingo !!!"
                '    J5_id = "Bingo !!!"
                '    G5_id = "Bingo !!!"
                '    H5_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    H5_id = "Bingo !!!"
                    H6_id = "Bingo !!!"
                    H7_id = "Bingo !!!"
                    H8_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    J5_id = "Bingo !!!"
                    H5_id = "Bingo !!!"
                    I5_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    H5_id = "Bingo !!!"
                    H6_id = "Bingo !!!"
                    H7_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    H5_id = "Bingo !!!"
                    I5_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    H5_id = "Bingo !!!"
                    H6_id = "Bingo !!!"
                End If
            End If
            myloc = H5.Location
        ElseIf H6.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    F6_id = "Bingo !!!"
                '    G6_id = "Bingo !!!"
                '    H6_id = "Bingo !!!"
                '    I6_id = "Bingo !!!"
                '    J6_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    H6_id = "Bingo !!!"
                    H7_id = "Bingo !!!"
                    H8_id = "Bingo !!!"
                    H9_id = "Bingo !!!"
                    H10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    I6_id = "Bingo !!!"
                '    J6_id = "Bingo !!!"
                '    G6_id = "Bingo !!!"
                '    H6_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    H6_id = "Bingo !!!"
                    H7_id = "Bingo !!!"
                    H8_id = "Bingo !!!"
                    H9_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    J6_id = "Bingo !!!"
                    H6_id = "Bingo !!!"
                    I6_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    H6_id = "Bingo !!!"
                    H7_id = "Bingo !!!"
                    H8_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    I6_id = "Bingo !!!"
                    H6_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    H6_id = "Bingo !!!"
                    H7_id = "Bingo !!!"
                End If

            End If
            myloc = H6.Location
        ElseIf H7.Name = position Then
            'If ComboBox_type.Text = "Size 5" Then
            '    If ComboBox_orient.Text = "Vertical" Then
            '        F7_id = "Bingo !!!"
            '        G7_id = "Bingo !!!"
            '        H7_id = "Bingo !!!"
            '        I7_id = "Bingo !!!"
            '        J7_id = "Bingo !!!"
            '        'ElseIf ComboBox_orient.Text = "Orizontal" Then
            '        '    A6_id = "Bingo !!!"
            '        '    A7_id = "Bingo !!!"
            '        '    A8_id = "Bingo !!!"
            '        '    A9_id = "Bingo !!!"
            '        '    A10_id = "Bingo !!!"
            '    End If
            If ComboBox_type.Text = "Size 4" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    I7_id = "Bingo !!!"
                '    J7_id = "Bingo !!!"
                '    G7_id = "Bingo !!!"
                '    H7_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    H7_id = "Bingo !!!"
                    H8_id = "Bingo !!!"
                    H9_id = "Bingo !!!"
                    H10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    J7_id = "Bingo !!!"
                    H7_id = "Bingo !!!"
                    I7_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    H7_id = "Bingo !!!"
                    H8_id = "Bingo !!!"
                    H9_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    I7_id = "Bingo !!!"
                    H7_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    H7_id = "Bingo !!!"
                    H8_id = "Bingo !!!"
                End If
            End If
            myloc = H7.Location
        ElseIf H8.Name = position Then
            'If ComboBox_type.Text = "Size 5" Then
            '    If ComboBox_orient.Text = "Vertical" Then
            '        F8_id = "Bingo !!!"
            '        G8_id = "Bingo !!!"
            '        H8_id = "Bingo !!!"
            '        I8_id = "Bingo !!!"
            '        J8_id = "Bingo !!!"
            '        'ElseIf ComboBox_orient.Text = "Orizontal" Then
            '        '    A6_id = "Bingo !!!"
            '        '    A7_id = "Bingo !!!"
            '        '    A8_id = "Bingo !!!"
            '        '    A9_id = "Bingo !!!"
            '        '    A10_id = "Bingo !!!"
            '    End If
            'If ComboBox_type.Text = "Size 4" Then
            '    If ComboBox_orient.Text = "Vertical" Then
            '        I8_id = "Bingo !!!"
            '        J8_id = "Bingo !!!"
            '        G8_id = "Bingo !!!"
            '        H8_id = "Bingo !!!"
            '        'ElseIf ComboBox_orient.Text = "Orizontal" Then
            '        '    A7_id = "Bingo !!!"
            '        '    A8_id = "Bingo !!!"
            '        '    A9_id = "Bingo !!!"
            '        '    A10_id = "Bingo !!!"
            '    End If
            If ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    J8_id = "Bingo !!!"
                    H8_id = "Bingo !!!"
                    I8_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    H8_id = "Bingo !!!"
                    H9_id = "Bingo !!!"
                    H10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    I8_id = "Bingo !!!"
                    H8_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    H8_id = "Bingo !!!"
                    H9_id = "Bingo !!!"
                End If
            End If
            myloc = H8.Location
        ElseIf H9.Name = position Then
            'If ComboBox_type.Text = "Size 5" Then
            '    If ComboBox_orient.Text = "Vertical" Then
            '        F9_id = "Bingo !!!"
            '        G9_id = "Bingo !!!"
            '        H9_id = "Bingo !!!"
            '        I9_id = "Bingo !!!"
            '        J9_id = "Bingo !!!"
            '        'ElseIf ComboBox_orient.Text = "Orizontal" Then
            '        '    A6_id = "Bingo !!!"
            '        '    A7_id = "Bingo !!!"
            '        '    A8_id = "Bingo !!!"
            '        '    A9_id = "Bingo !!!"
            '        '    A10_id = "Bingo !!!"
            '    End If
            'If ComboBox_type.Text = "Size 4" Then
            '    If ComboBox_orient.Text = "Vertical" Then
            '        I9_id = "Bingo !!!"
            '        J9_id = "Bingo !!!"
            '        G9_id = "Bingo !!!"
            '        H9_id = "Bingo !!!"
            '        'ElseIf ComboBox_orient.Text = "Orizontal" Then
            '        '    A7_id = "Bingo !!!"
            '        '    A8_id = "Bingo !!!"
            '        '    A9_id = "Bingo !!!"
            '        '    A10_id = "Bingo !!!"
            '    End If
            If ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    J9_id = "Bingo !!!"
                    H9_id = "Bingo !!!"
                    I9_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    I9_id = "Bingo !!!"
                    H9_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    H9_id = "Bingo !!!"
                    H10_id = "Bingo !!!"
                End If
            End If
            myloc = H9.Location
        ElseIf H10.Name = position Then
            'If ComboBox_type.Text = "Size 5" Then
            '    If ComboBox_orient.Text = "Vertical" Then
            '        F10_id = "Bingo !!!"
            '        G10_id = "Bingo !!!"
            '        H10_id = "Bingo !!!"
            '        I10_id = "Bingo !!!"
            '        J10_id = "Bingo !!!"
            '        'ElseIf ComboBox_orient.Text = "Orizontal" Then
            '        '    A6_id = "Bingo !!!"
            '        '    A7_id = "Bingo !!!"
            '        '    A8_id = "Bingo !!!"
            '        '    A9_id = "Bingo !!!"
            '        '    A10_id = "Bingo !!!"
            '    End If
            'If ComboBox_type.Text = "Size 4" Then
            '    If ComboBox_orient.Text = "Vertical" Then
            '        I10_id = "Bingo !!!"
            '        J10_id = "Bingo !!!"
            '        G10_id = "Bingo !!!"
            '        H10_id = "Bingo !!!"
            '        'ElseIf ComboBox_orient.Text = "Orizontal" Then
            '        '    A7_id = "Bingo !!!"
            '        '    A8_id = "Bingo !!!"
            '        '    A9_id = "Bingo !!!"
            '        '    A10_id = "Bingo !!!"
            '    End If
            If ComboBox_type.Text = "Size 3" Then
                If ComboBox_orient.Text = "Vertical" Then
                    J10_id = "Bingo !!!"
                    H10_id = "Bingo !!!"
                    I10_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A8_id = "Bingo !!!"
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    I10_id = "Bingo !!!"
                    H10_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            End If
            myloc = H10.Location
        ElseIf J1.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    G1_id = "Bingo !!!"
                '    H1_id = "Bingo !!!"
                '    I1_id = "Bingo !!!"
                '    J1_id = "Bingo !!!"
                '    F1_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    J1_id = "Bingo !!!"
                    J2_id = "Bingo !!!"
                    J3_id = "Bingo !!!"
                    J4_id = "Bingo !!!"
                    J5_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    J1_id = "Bingo !!!"
                '    G1_id = "Bingo !!!"
                '    H1_id = "Bingo !!!"
                '    I1_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    J1_id = "Bingo !!!"
                    J2_id = "Bingo !!!"
                    J3_id = "Bingo !!!"
                    J4_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    H1_id = "Bingo !!!"
                '    I1_id = "Bingo !!!"
                '    J1_id = "Bingo !!!"
                'Else
                If ComboBox_orient.Text = "Orizontal" Then
                    J1_id = "Bingo !!!"
                    J2_id = "Bingo !!!"
                    J3_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    J1_id = "Bingo !!!"
                '    I1_id = "Bingo !!!"
                'Else
                If ComboBox_orient.Text = "Orizontal" Then
                    J1_id = "Bingo !!!"
                    J2_id = "Bingo !!!"
                End If
            End If
            myloc = J1.Location
        ElseIf J2.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    G2_id = "Bingo !!!"
                '    H2_id = "Bingo !!!"
                '    I2_id = "Bingo !!!"
                '    J2_id = "Bingo !!!"
                '    F2_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    J2_id = "Bingo !!!"
                    J3_id = "Bingo !!!"
                    J4_id = "Bingo !!!"
                    J5_id = "Bingo !!!"
                    J6_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    J2_id = "Bingo !!!"
                '    G2_id = "Bingo !!!"
                '    H2_id = "Bingo !!!"
                '    I2_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    J2_id = "Bingo !!!"
                    J3_id = "Bingo !!!"
                    J4_id = "Bingo !!!"
                    J5_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    H2_id = "Bingo !!!"
                '    I2_id = "Bingo !!!"
                '    J2_id = "Bingo !!!"
                'Else
                If ComboBox_orient.Text = "Orizontal" Then
                    J2_id = "Bingo !!!"
                    J3_id = "Bingo !!!"
                    J4_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    J2_id = "Bingo !!!"
                '    I2_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    J2_id = "Bingo !!!"
                    J3_id = "Bingo !!!"
                End If
            End If
            myloc = J2.Location
        ElseIf J3.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    G3_id = "Bingo !!!"
                '    H3_id = "Bingo !!!"
                '    I3_id = "Bingo !!!"
                '    J3_id = "Bingo !!!"
                '    F3_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    J3_id = "Bingo !!!"
                    J4_id = "Bingo !!!"
                    J5_id = "Bingo !!!"
                    J6_id = "Bingo !!!"
                    J7_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    J3_id = "Bingo !!!"
                '    G3_id = "Bingo !!!"
                '    H3_id = "Bingo !!!"
                '    I3_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    J3_id = "Bingo !!!"
                    J4_id = "Bingo !!!"
                    J5_id = "Bingo !!!"
                    J6_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    H3_id = "Bingo !!!"
                '    I3_id = "Bingo !!!"
                '    J3_id = "Bingo !!!"
                'Else
                If ComboBox_orient.Text = "Orizontal" Then
                    J3_id = "Bingo !!!"
                    J4_id = "Bingo !!!"
                    J5_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    J3_id = "Bingo !!!"
                '    I3_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    I3_id = "Bingo !!!"
                    I4_id = "Bingo !!!"
                End If
        End If
            myloc = J3.Location
        ElseIf J4.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    F4_id = "Bingo !!!"
                '    G4_id = "Bingo !!!"
                '    H4_id = "Bingo !!!"
                '    I4_id = "Bingo !!!"
                '    J4_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    J4_id = "Bingo !!!"
                    J5_id = "Bingo !!!"
                    J6_id = "Bingo !!!"
                    J7_id = "Bingo !!!"
                    J8_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    I4_id = "Bingo !!!"
                '    J4_id = "Bingo !!!"
                '    G4_id = "Bingo !!!"
                '    H4_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    J4_id = "Bingo !!!"
                    J5_id = "Bingo !!!"
                    J6_id = "Bingo !!!"
                    J7_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    J4_id = "Bingo !!!"
                '    H4_id = "Bingo !!!"
                '    I4_id = "Bingo !!!"
                'Else
                If ComboBox_orient.Text = "Orizontal" Then
                    J4_id = "Bingo !!!"
                    J5_id = "Bingo !!!"
                    J6_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    I4_id = "Bingo !!!"
                '    J4_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    J4_id = "Bingo !!!"
                    J5_id = "Bingo !!!"
                End If
        End If
            myloc = J4.Location
        ElseIf J5.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    F5_id = "Bingo !!!"
                '    G5_id = "Bingo !!!"
                '    H5_id = "Bingo !!!"
                '    I5_id = "Bingo !!!"
                '    J5_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    J5_id = "Bingo !!!"
                    J6_id = "Bingo !!!"
                    J7_id = "Bingo !!!"
                    J8_id = "Bingo !!!"
                    J9_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    I5_id = "Bingo !!!"
                '    J5_id = "Bingo !!!"
                '    G5_id = "Bingo !!!"
                '    H5_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    J5_id = "Bingo !!!"
                    J6_id = "Bingo !!!"
                    J7_id = "Bingo !!!"
                    J8_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    J5_id = "Bingo !!!"
                '    H5_id = "Bingo !!!"
                '    I5_id = "Bingo !!!"
                'Else
                If ComboBox_orient.Text = "Orizontal" Then
                    J5_id = "Bingo !!!"
                    J6_id = "Bingo !!!"
                    J7_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    J5_id = "Bingo !!!"
                '    I5_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    J5_id = "Bingo !!!"
                    J6_id = "Bingo !!!"
                End If
        End If
            myloc = J5.Location
        ElseIf J6.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    F6_id = "Bingo !!!"
                '    G6_id = "Bingo !!!"
                '    H6_id = "Bingo !!!"
                '    I6_id = "Bingo !!!"
                '    J6_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    J6_id = "Bingo !!!"
                    J7_id = "Bingo !!!"
                    J8_id = "Bingo !!!"
                    J9_id = "Bingo !!!"
                    J10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    I6_id = "Bingo !!!"
                '    J6_id = "Bingo !!!"
                '    G6_id = "Bingo !!!"
                '    H6_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    J6_id = "Bingo !!!"
                    J7_id = "Bingo !!!"
                    J8_id = "Bingo !!!"
                    J9_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    J6_id = "Bingo !!!"
                '    H6_id = "Bingo !!!"
                '    I6_id = "Bingo !!!"
                'Else
                If ComboBox_orient.Text = "Orizontal" Then
                    J6_id = "Bingo !!!"
                    J7_id = "Bingo !!!"
                    J8_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    I6_id = "Bingo !!!"
                '    J6_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    J6_id = "Bingo !!!"
                    J7_id = "Bingo !!!"
                End If

        End If
            myloc = J6.Location
        ElseIf J7.Name = position Then
            'If ComboBox_type.Text = "Size 5" Then
            '    If ComboBox_orient.Text = "Vertical" Then
            '        F7_id = "Bingo !!!"
            '        G7_id = "Bingo !!!"
            '        H7_id = "Bingo !!!"
            '        I7_id = "Bingo !!!"
            '        J7_id = "Bingo !!!"
            '        'ElseIf ComboBox_orient.Text = "Orizontal" Then
            '        '    A6_id = "Bingo !!!"
            '        '    A7_id = "Bingo !!!"
            '        '    A8_id = "Bingo !!!"
            '        '    A9_id = "Bingo !!!"
            '        '    A10_id = "Bingo !!!"
            '    End If
            If ComboBox_type.Text = "Size 4" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    I7_id = "Bingo !!!"
                '    J7_id = "Bingo !!!"
                '    G7_id = "Bingo !!!"
                '    H7_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    J7_id = "Bingo !!!"
                    J8_id = "Bingo !!!"
                    J9_id = "Bingo !!!"
                    J10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    J7_id = "Bingo !!!"
                '    H7_id = "Bingo !!!"
                '    I7_id = "Bingo !!!"
                'Else
                If ComboBox_orient.Text = "Orizontal" Then
                    J7_id = "Bingo !!!"
                    J8_id = "Bingo !!!"
                    J9_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    I7_id = "Bingo !!!"
                '    J7_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    J7_id = "Bingo !!!"
                    J8_id = "Bingo !!!"
                End If
        End If
            myloc = J7.Location
        ElseIf J8.Name = position Then
            'If ComboBox_type.Text = "Size 5" Then
            '    If ComboBox_orient.Text = "Vertical" Then
            '        F8_id = "Bingo !!!"
            '        G8_id = "Bingo !!!"
            '        H8_id = "Bingo !!!"
            '        I8_id = "Bingo !!!"
            '        J8_id = "Bingo !!!"
            '        'ElseIf ComboBox_orient.Text = "Orizontal" Then
            '        '    A6_id = "Bingo !!!"
            '        '    A7_id = "Bingo !!!"
            '        '    A8_id = "Bingo !!!"
            '        '    A9_id = "Bingo !!!"
            '        '    A10_id = "Bingo !!!"
            '    End If
            'If ComboBox_type.Text = "Size 4" Then
            '    If ComboBox_orient.Text = "Vertical" Then
            '        I8_id = "Bingo !!!"
            '        J8_id = "Bingo !!!"
            '        G8_id = "Bingo !!!"
            '        H8_id = "Bingo !!!"
            '        'ElseIf ComboBox_orient.Text = "Orizontal" Then
            '        '    A7_id = "Bingo !!!"
            '        '    A8_id = "Bingo !!!"
            '        '    A9_id = "Bingo !!!"
            '        '    A10_id = "Bingo !!!"
            '    End If
            If ComboBox_type.Text = "Size 3" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    J8_id = "Bingo !!!"
                '    H8_id = "Bingo !!!"
                '    I8_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    J8_id = "Bingo !!!"
                    J9_id = "Bingo !!!"
                    J10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    I8_id = "Bingo !!!"
                '    J8_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    J8_id = "Bingo !!!"
                    J9_id = "Bingo !!!"
                End If
        End If
            myloc = J8.Location
            'ElseIf J9.Name = position Then
            'If ComboBox_type.Text = "Size 5" Then
            '    If ComboBox_orient.Text = "Vertical" Then
            '        F9_id = "Bingo !!!"
            '        G9_id = "Bingo !!!"
            '        H9_id = "Bingo !!!"
            '        I9_id = "Bingo !!!"
            '        J9_id = "Bingo !!!"
            '        'ElseIf ComboBox_orient.Text = "Orizontal" Then
            '        '    A6_id = "Bingo !!!"
            '        '    A7_id = "Bingo !!!"
            '        '    A8_id = "Bingo !!!"
            '        '    A9_id = "Bingo !!!"
            '        '    A10_id = "Bingo !!!"
            '    End If
            'If ComboBox_type.Text = "Size 4" Then
            '    If ComboBox_orient.Text = "Vertical" Then
            '        I9_id = "Bingo !!!"
            '        J9_id = "Bingo !!!"
            '        G9_id = "Bingo !!!"
            '        H9_id = "Bingo !!!"
            '        'ElseIf ComboBox_orient.Text = "Orizontal" Then
            '        '    A7_id = "Bingo !!!"
            '        '    A8_id = "Bingo !!!"
            '        '    A9_id = "Bingo !!!"
            '        '    A10_id = "Bingo !!!"
            '    End If
            'If ComboBox_type.Text = "Size 3" Then
            '    If ComboBox_orient.Text = "Vertical" Then
            '        J9_id = "Bingo !!!"
            '        H9_id = "Bingo !!!"
            '        I9_id = "Bingo !!!"
            '        'ElseIf ComboBox_orient.Text = "Orizontal" Then
            '        '    A8_id = "Bingo !!!"
            '        '    A9_id = "Bingo !!!"
            '        '    A10_id = "Bingo !!!"
            '    End If
            'If ComboBox_type.Text = "Size 2" Then
            '    'If ComboBox_orient.Text = "Vertical" Then
            '    '    I9_id = "Bingo !!!"
            '    '    J9_id = "Bingo !!!"
            '    If ComboBox_orient.Text = "Orizontal" Then
            '        J9_id = "Bingo !!!"
            '        J10_id = "Bingo !!!"
            '    End If
            'End If
            'myloc = J9.Location
            'ElseIf J10.Name = position Then
            'If ComboBox_type.Text = "Size 5" Then
            '    If ComboBox_orient.Text = "Vertical" Then
            '        F10_id = "Bingo !!!"
            '        G10_id = "Bingo !!!"
            '        H10_id = "Bingo !!!"
            '        I10_id = "Bingo !!!"
            '        J10_id = "Bingo !!!"
            '        'ElseIf ComboBox_orient.Text = "Orizontal" Then
            '        '    A6_id = "Bingo !!!"
            '        '    A7_id = "Bingo !!!"
            '        '    A8_id = "Bingo !!!"
            '        '    A9_id = "Bingo !!!"
            '        '    A10_id = "Bingo !!!"
            '    End If
            'If ComboBox_type.Text = "Size 4" Then
            '    If ComboBox_orient.Text = "Vertical" Then
            '        I10_id = "Bingo !!!"
            '        J10_id = "Bingo !!!"
            '        G10_id = "Bingo !!!"
            '        H10_id = "Bingo !!!"
            '        'ElseIf ComboBox_orient.Text = "Orizontal" Then
            '        '    A7_id = "Bingo !!!"
            '        '    A8_id = "Bingo !!!"
            '        '    A9_id = "Bingo !!!"
            '        '    A10_id = "Bingo !!!"
            '    End If
            'If ComboBox_type.Text = "Size 3" Then
            '    If ComboBox_orient.Text = "Vertical" Then
            '        J10_id = "Bingo !!!"
            '        H10_id = "Bingo !!!"
            '        I10_id = "Bingo !!!"
            '        'ElseIf ComboBox_orient.Text = "Orizontal" Then
            '        '    A8_id = "Bingo !!!"
            '        '    A9_id = "Bingo !!!"
            '        '    A10_id = "Bingo !!!"
            '    End If
            'If ComboBox_type.Text = "Size 2" Then
            '    If ComboBox_orient.Text = "Vertical" Then
            '        I10_id = "Bingo !!!"
            '        J10_id = "Bingo !!!"
            '        'ElseIf ComboBox_orient.Text = "Orizontal" Then
            '        '    A9_id = "Bingo !!!"
            '        '    A10_id = "Bingo !!!"
            '    End If
            'End If
            'myloc = J10.Location
        ElseIf I1.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    G1_id = "Bingo !!!"
                '    H1_id = "Bingo !!!"
                '    I1_id = "Bingo !!!"
                '    J1_id = "Bingo !!!"
                '    F1_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    I1_id = "Bingo !!!"
                    I2_id = "Bingo !!!"
                    I3_id = "Bingo !!!"
                    I4_id = "Bingo !!!"
                    I5_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    J1_id = "Bingo !!!"
                '    G1_id = "Bingo !!!"
                '    H1_id = "Bingo !!!"
                '    I1_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    I1_id = "Bingo !!!"
                    I2_id = "Bingo !!!"
                    I3_id = "Bingo !!!"
                    I4_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    H1_id = "Bingo !!!"
                '    I1_id = "Bingo !!!"
                '    J1_id = "Bingo !!!"
                'Else
                If ComboBox_orient.Text = "Orizontal" Then
                    I1_id = "Bingo !!!"
                    I2_id = "Bingo !!!"
                    I3_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    J1_id = "Bingo !!!"
                    I1_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    I1_id = "Bingo !!!"
                    I2_id = "Bingo !!!"
                End If
            End If
            myloc = I1.Location
        ElseIf I2.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    G2_id = "Bingo !!!"
                '    H2_id = "Bingo !!!"
                '    I2_id = "Bingo !!!"
                '    J2_id = "Bingo !!!"
                '    F2_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    I2_id = "Bingo !!!"
                    I3_id = "Bingo !!!"
                    I4_id = "Bingo !!!"
                    I5_id = "Bingo !!!"
                    I6_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    J2_id = "Bingo !!!"
                '    G2_id = "Bingo !!!"
                '    H2_id = "Bingo !!!"
                '    I2_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    I2_id = "Bingo !!!"
                    I3_id = "Bingo !!!"
                    I4_id = "Bingo !!!"
                    I5_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    H2_id = "Bingo !!!"
                '    I2_id = "Bingo !!!"
                '    J2_id = "Bingo !!!"
                'Else
                If ComboBox_orient.Text = "Orizontal" Then
                    I2_id = "Bingo !!!"
                    I3_id = "Bingo !!!"
                    I4_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    J2_id = "Bingo !!!"
                    I2_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    I2_id = "Bingo !!!"
                    I3_id = "Bingo !!!"
                End If
            End If
            myloc = I2.Location
        ElseIf I3.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    G3_id = "Bingo !!!"
                '    H3_id = "Bingo !!!"
                '    I3_id = "Bingo !!!"
                '    J3_id = "Bingo !!!"
                '    F3_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    I3_id = "Bingo !!!"
                    I4_id = "Bingo !!!"
                    I5_id = "Bingo !!!"
                    I6_id = "Bingo !!!"
                    I7_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    J3_id = "Bingo !!!"
                '    G3_id = "Bingo !!!"
                '    H3_id = "Bingo !!!"
                '    I3_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    I3_id = "Bingo !!!"
                    I4_id = "Bingo !!!"
                    I5_id = "Bingo !!!"
                    I6_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    H3_id = "Bingo !!!"
                '    I3_id = "Bingo !!!"
                '    J3_id = "Bingo !!!"
                'Else
                If ComboBox_orient.Text = "Orizontal" Then
                    I3_id = "Bingo !!!"
                    I4_id = "Bingo !!!"
                    I5_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    J3_id = "Bingo !!!"
                    I3_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    I3_id = "Bingo !!!"
                    I4_id = "Bingo !!!"
                End If
            End If
            myloc = I3.Location
        ElseIf I4.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    F4_id = "Bingo !!!"
                '    G4_id = "Bingo !!!"
                '    H4_id = "Bingo !!!"
                '    I4_id = "Bingo !!!"
                '    J4_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    I4_id = "Bingo !!!"
                    I5_id = "Bingo !!!"
                    I6_id = "Bingo !!!"
                    I7_id = "Bingo !!!"
                    I8_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    I4_id = "Bingo !!!"
                '    J4_id = "Bingo !!!"
                '    G4_id = "Bingo !!!"
                '    H4_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    I4_id = "Bingo !!!"
                    I5_id = "Bingo !!!"
                    I6_id = "Bingo !!!"
                    I7_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    J4_id = "Bingo !!!"
                '    H4_id = "Bingo !!!"
                '    I4_id = "Bingo !!!"
                'Else
                If ComboBox_orient.Text = "Orizontal" Then
                    I4_id = "Bingo !!!"
                    I5_id = "Bingo !!!"
                    I6_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    I4_id = "Bingo !!!"
                    J4_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    I4_id = "Bingo !!!"
                    I5_id = "Bingo !!!"
                End If
            End If
            myloc = I4.Location
        ElseIf I5.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    F5_id = "Bingo !!!"
                '    G5_id = "Bingo !!!"
                '    H5_id = "Bingo !!!"
                '    I5_id = "Bingo !!!"
                '    J5_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    I5_id = "Bingo !!!"
                    I6_id = "Bingo !!!"
                    I7_id = "Bingo !!!"
                    I8_id = "Bingo !!!"
                    I9_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    I5_id = "Bingo !!!"
                '    J5_id = "Bingo !!!"
                '    G5_id = "Bingo !!!"
                '    H5_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    I5_id = "Bingo !!!"
                    I6_id = "Bingo !!!"
                    I7_id = "Bingo !!!"
                    I8_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    J5_id = "Bingo !!!"
                '    H5_id = "Bingo !!!"
                '    I5_id = "Bingo !!!"
                'Else
                If ComboBox_orient.Text = "Orizontal" Then
                    I5_id = "Bingo !!!"
                    I6_id = "Bingo !!!"
                    I7_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    J5_id = "Bingo !!!"
                    I5_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    I5_id = "Bingo !!!"
                    I6_id = "Bingo !!!"
                End If
            End If
            myloc = I5.Location
        ElseIf I6.Name = position Then
            If ComboBox_type.Text = "Size 5" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    F6_id = "Bingo !!!"
                '    G6_id = "Bingo !!!"
                '    H6_id = "Bingo !!!"
                '    I6_id = "Bingo !!!"
                '    J6_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    I6_id = "Bingo !!!"
                    I7_id = "Bingo !!!"
                    I8_id = "Bingo !!!"
                    I9_id = "Bingo !!!"
                    I10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 4" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    I6_id = "Bingo !!!"
                '    J6_id = "Bingo !!!"
                '    G6_id = "Bingo !!!"
                '    H6_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    I6_id = "Bingo !!!"
                    I7_id = "Bingo !!!"
                    I8_id = "Bingo !!!"
                    I9_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    J6_id = "Bingo !!!"
                '    H6_id = "Bingo !!!"
                '    I6_id = "Bingo !!!"
                'Else
                If ComboBox_orient.Text = "Orizontal" Then
                    I6_id = "Bingo !!!"
                    I7_id = "Bingo !!!"
                    I8_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    I6_id = "Bingo !!!"
                    J6_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    I6_id = "Bingo !!!"
                    I7_id = "Bingo !!!"
                End If

            End If
            myloc = I6.Location
        ElseIf I7.Name = position Then
            'If ComboBox_type.Text = "Size 5" Then
            '    If ComboBox_orient.Text = "Vertical" Then
            '        F7_id = "Bingo !!!"
            '        G7_id = "Bingo !!!"
            '        H7_id = "Bingo !!!"
            '        I7_id = "Bingo !!!"
            '        J7_id = "Bingo !!!"
            '        'ElseIf ComboBox_orient.Text = "Orizontal" Then
            '        '    A6_id = "Bingo !!!"
            '        '    A7_id = "Bingo !!!"
            '        '    A8_id = "Bingo !!!"
            '        '    A9_id = "Bingo !!!"
            '        '    A10_id = "Bingo !!!"
            '    End If
            If ComboBox_type.Text = "Size 4" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    I7_id = "Bingo !!!"
                '    J7_id = "Bingo !!!"
                '    G7_id = "Bingo !!!"
                '    H7_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    I7_id = "Bingo !!!"
                    I8_id = "Bingo !!!"
                    I9_id = "Bingo !!!"
                    I10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 3" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    J7_id = "Bingo !!!"
                '    H7_id = "Bingo !!!"
                '    I7_id = "Bingo !!!"
                'Else
                If ComboBox_orient.Text = "Orizontal" Then
                    I7_id = "Bingo !!!"
                    I8_id = "Bingo !!!"
                    I9_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    I7_id = "Bingo !!!"
                    J7_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    I7_id = "Bingo !!!"
                    I8_id = "Bingo !!!"
                End If
            End If
            myloc = I7.Location
        ElseIf I8.Name = position Then
            'If ComboBox_type.Text = "Size 5" Then
            '    If ComboBox_orient.Text = "Vertical" Then
            '        F8_id = "Bingo !!!"
            '        G8_id = "Bingo !!!"
            '        H8_id = "Bingo !!!"
            '        I8_id = "Bingo !!!"
            '        J8_id = "Bingo !!!"
            '        'ElseIf ComboBox_orient.Text = "Orizontal" Then
            '        '    A6_id = "Bingo !!!"
            '        '    A7_id = "Bingo !!!"
            '        '    A8_id = "Bingo !!!"
            '        '    A9_id = "Bingo !!!"
            '        '    A10_id = "Bingo !!!"
            '    End If
            'If ComboBox_type.Text = "Size 4" Then
            '    If ComboBox_orient.Text = "Vertical" Then
            '        I8_id = "Bingo !!!"
            '        J8_id = "Bingo !!!"
            '        G8_id = "Bingo !!!"
            '        H8_id = "Bingo !!!"
            '        'ElseIf ComboBox_orient.Text = "Orizontal" Then
            '        '    A7_id = "Bingo !!!"
            '        '    A8_id = "Bingo !!!"
            '        '    A9_id = "Bingo !!!"
            '        '    A10_id = "Bingo !!!"
            '    End If
            If ComboBox_type.Text = "Size 3" Then
                'If ComboBox_orient.Text = "Vertical" Then
                '    J8_id = "Bingo !!!"
                '    H8_id = "Bingo !!!"
                '    I8_id = "Bingo !!!"
                If ComboBox_orient.Text = "Orizontal" Then
                    I8_id = "Bingo !!!"
                    I9_id = "Bingo !!!"
                    I10_id = "Bingo !!!"
                End If
            ElseIf ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    I8_id = "Bingo !!!"
                    J8_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    I8_id = "Bingo !!!"
                    I9_id = "Bingo !!!"
                End If
            End If
            myloc = I8.Location
        ElseIf I9.Name = position Then
            'If ComboBox_type.Text = "Size 5" Then
            '    If ComboBox_orient.Text = "Vertical" Then
            '        F9_id = "Bingo !!!"
            '        G9_id = "Bingo !!!"
            '        H9_id = "Bingo !!!"
            '        I9_id = "Bingo !!!"
            '        J9_id = "Bingo !!!"
            '        'ElseIf ComboBox_orient.Text = "Orizontal" Then
            '        '    A6_id = "Bingo !!!"
            '        '    A7_id = "Bingo !!!"
            '        '    A8_id = "Bingo !!!"
            '        '    A9_id = "Bingo !!!"
            '        '    A10_id = "Bingo !!!"
            '    End If
            'If ComboBox_type.Text = "Size 4" Then
            '    If ComboBox_orient.Text = "Vertical" Then
            '        I9_id = "Bingo !!!"
            '        J9_id = "Bingo !!!"
            '        G9_id = "Bingo !!!"
            '        H9_id = "Bingo !!!"
            '        'ElseIf ComboBox_orient.Text = "Orizontal" Then
            '        '    A7_id = "Bingo !!!"
            '        '    A8_id = "Bingo !!!"
            '        '    A9_id = "Bingo !!!"
            '        '    A10_id = "Bingo !!!"
            '    End If
            'If ComboBox_type.Text = "Size 3" Then
            '    If ComboBox_orient.Text = "Vertical" Then
            '        J9_id = "Bingo !!!"
            '        H9_id = "Bingo !!!"
            '        I9_id = "Bingo !!!"
            '        'ElseIf ComboBox_orient.Text = "Orizontal" Then
            '        '    A8_id = "Bingo !!!"
            '        '    A9_id = "Bingo !!!"
            '        '    A10_id = "Bingo !!!"
            '    End If
            If ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    I9_id = "Bingo !!!"
                    J9_id = "Bingo !!!"
                ElseIf ComboBox_orient.Text = "Orizontal" Then
                    I9_id = "Bingo !!!"
                    I10_id = "Bingo !!!"
                End If
            End If
            myloc = I9.Location
        ElseIf I10.Name = position Then
            'If ComboBox_type.Text = "Size 5" Then
            '    If ComboBox_orient.Text = "Vertical" Then
            '        F10_id = "Bingo !!!"
            '        G10_id = "Bingo !!!"
            '        H10_id = "Bingo !!!"
            '        I10_id = "Bingo !!!"
            '        J10_id = "Bingo !!!"
            '        'ElseIf ComboBox_orient.Text = "Orizontal" Then
            '        '    A6_id = "Bingo !!!"
            '        '    A7_id = "Bingo !!!"
            '        '    A8_id = "Bingo !!!"
            '        '    A9_id = "Bingo !!!"
            '        '    A10_id = "Bingo !!!"
            '    End If
            'If ComboBox_type.Text = "Size 4" Then
            '    If ComboBox_orient.Text = "Vertical" Then
            '        I10_id = "Bingo !!!"
            '        J10_id = "Bingo !!!"
            '        G10_id = "Bingo !!!"
            '        H10_id = "Bingo !!!"
            '        'ElseIf ComboBox_orient.Text = "Orizontal" Then
            '        '    A7_id = "Bingo !!!"
            '        '    A8_id = "Bingo !!!"
            '        '    A9_id = "Bingo !!!"
            '        '    A10_id = "Bingo !!!"
            '    End If
            'If ComboBox_type.Text = "Size 3" Then
            '    If ComboBox_orient.Text = "Vertical" Then
            '        J10_id = "Bingo !!!"
            '        H10_id = "Bingo !!!"
            '        I10_id = "Bingo !!!"
            '        'ElseIf ComboBox_orient.Text = "Orizontal" Then
            '        '    A8_id = "Bingo !!!"
            '        '    A9_id = "Bingo !!!"
            '        '    A10_id = "Bingo !!!"
            '    End If
            If ComboBox_type.Text = "Size 2" Then
                If ComboBox_orient.Text = "Vertical" Then
                    I10_id = "Bingo !!!"
                    J10_id = "Bingo !!!"
                    'ElseIf ComboBox_orient.Text = "Orizontal" Then
                    '    A9_id = "Bingo !!!"
                    '    A10_id = "Bingo !!!"
                End If
            End If
            myloc = I10.Location
        End If


        If ComboBox_type.Text = "Size 5" Then
            If ComboBox_orient.Text = "Vertical" Then
                If ComboBox_letter.Text <= "F" Then
                    size5v.Location = myloc
                    Size5.Visible = False
                    size5v.Visible = True
                    ComboBox_type.Items.Remove("Size 5")
                    shipsplaced += 1
                Else
                    MessageBox.Show("Αδύνατη εισαγωγή πλοίου. Προσπάθησε ξανά!")
                End If
            Else
                If ComboBox_number.Text <= "6" And ComboBox_number.Text <> "10" Then
                    Size5.Visible = True
                    size5v.Visible = False
                    Size5.Location = myloc
                    ComboBox_type.Items.Remove("Size 5")
                    shipsplaced += 1
                Else
                    MessageBox.Show("Αδύνατη εισαγωγή πλοίου. Προσπάθησε ξανά!")
                End If
            End If
        ElseIf ComboBox_type.Text = "Size 4" Then
            If ComboBox_orient.Text = "Vertical" Then
                If ComboBox_letter.Text <= "G" Then
                    size4v.Location = myloc
                    Size4.Visible = False
                    size4v.Visible = True
                    ComboBox_type.Items.Remove("Size 4")
                    shipsplaced += 1
                Else
                    MessageBox.Show("Αδύνατη εισαγωγή πλοίου. Προσπάθησε ξανά!")
                End If
            Else
                If ComboBox_number.Text <= "7" And ComboBox_number.Text <> "10" Then
                    Size4.Visible = True
                    size4v.Visible = False
                    Size4.Location = myloc
                    ComboBox_type.Items.Remove("Size 4")
                    shipsplaced += 1
                Else
                    MessageBox.Show("Αδύνατη εισαγωγή πλοίου. Προσπάθησε ξανά!")
                End If
            End If
        ElseIf ComboBox_type.Text = "Size 3" Then
            If ComboBox_orient.Text = "Vertical" Then
                If ComboBox_letter.Text <= "H" Then
                    size3v.Location = myloc
                    Size3.Visible = False
                    size3v.Visible = True
                    ComboBox_type.Items.Remove("Size 3")
                    shipsplaced += 1
                Else
                    MessageBox.Show("Αδύνατη εισαγωγή πλοίου. Προσπάθησε ξανά!")
                End If
            Else
                If ComboBox_number.Text <= "8" And ComboBox_number.Text <> "10" Then
                    Size3.Visible = True
                    size3v.Visible = False
                    Size3.Location = myloc
                    ComboBox_type.Items.Remove("Size 3")
                    shipsplaced += 1
                Else
                    MessageBox.Show("Αδύνατη εισαγωγή πλοίου. Προσπάθησε ξανά!")
                End If
            End If
        ElseIf ComboBox_type.Text = "Size 2" Then
            If ComboBox_orient.Text = "Vertical" Then
                If ComboBox_letter.Text <= "I" Then
                    size2v.Location = myloc
                    Size2.Visible = False
                    size2v.Visible = True
                    ComboBox_type.Items.Remove("Size 2")
                    shipsplaced += 1
                Else
                    MessageBox.Show("Αδύνατη εισαγωγή πλοίου. Προσπάθησε ξανά!")
                End If
            Else
                If ComboBox_number.Text <= "9" And ComboBox_number.Text <> "10" Then
                    Size2.Visible = True
                    size2v.Visible = False
                    Size2.Location = myloc
                    ComboBox_type.Items.Remove("Size 2")
                    shipsplaced += 1
                Else
                    MessageBox.Show("Αδύνατη εισαγωγή πλοίου. Προσπάθησε ξανά!")
                End If
            End If
        End If

        If shipsplaced = 4 Then
            NextButton.Enabled = False
            ComboBox_letter.Enabled = False
            ComboBox_number.Enabled = False
            ComboBox_orient.Enabled = False
            ComboBox_type.Enabled = False
            Ready_Btn.Visible = True
        End If
    End Sub

    Private Sub Ready_Btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ready_Btn.Click
        Ready_Btn.Enabled = False

        'xronos, afou evala to timer ton energopoiw ota o paiktis patisei ready
        Timer1.Interval = "1000"  'dinw timi ston xrono
        Timer1.Enabled = True '3ekionaw ton xrono

        recieve()
    End Sub

    Private Sub recieve()
        Try
            Form1.networkStream = Form1.clientSocket.GetStream()
            Dim buffSize As Integer
            buffSize = Form1.clientSocket.ReceiveBufferSize
            Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize)
            Dim dataFromClient As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
            dataFromClient = dataFromClient.Substring(0, dataFromClient.IndexOf("$"))
            Form1.networkStream.Flush()
            TextBox1.Text = dataFromClient
        Catch ex As Exception
            MessageBox.Show("DEFEAT")
            Me.Close()
            Form1.Close()
        End Try


        If TextBox1.Text = "A1OP" Then
            A1.Enabled = True
            A1.BringToFront()
            If A1_id = "WATER" Then
                A1.Image = My.Resources.Blue
            Else
                A1.Image = My.Resources.red
                score += 10 'pros8ese 10 sto score
                score += count
                Label51.Text = score 'emfanise sto label tou score, tin timi tou score
                hitbyopcount += 1
            End If

            Dim serverResponse As String = A1_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "A2OP" Then
            A2.Enabled = True
            A2.BringToFront()
            If A2_id = "WATER" Then
                A2.Image = My.Resources.Blue
            Else
                A2.Image = My.Resources.red
                score += 10 'pros8ese 10 sto score
                score += count
                Label51.Text = score 'emfanise sto label tou score, tin timi tou score
                hitbyopcount += 1
            End If

            Dim serverResponse As String = A2_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "A3OP" Then
            A3.Enabled = True
            A3.BringToFront()
            If A3_id = "WATER" Then
                A3.Image = My.Resources.Blue
            Else
                A3.Image = My.Resources.red
                score += 10 'pros8ese 10 sto score
                score += count
                Label51.Text = score 'emfanise sto label tou score, tin timi tou score
                hitbyopcount += 1
            End If

            Dim serverResponse As String = A3_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "A4OP" Then
            A4.Enabled = True
            A4.BringToFront()
            If A4_id = "WATER" Then
                A4.Image = My.Resources.Blue
            Else
                A4.Image = My.Resources.red
                score += 10 'pros8ese 10 sto score
                score += count
                Label51.Text = score 'emfanise sto label tou score, tin timi tou score
                hitbyopcount += 1
            End If

            Dim serverResponse As String = A4_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "A5OP" Then
            A5.Enabled = True
            A5.BringToFront()
            If A5_id = "WATER" Then
                A5.Image = My.Resources.Blue
            Else
                A5.Image = My.Resources.red
                score += 10 'pros8ese 10 sto score
                score += count
                Label51.Text = score 'emfanise sto label tou score, tin timi tou score
                hitbyopcount += 1
            End If

            Dim serverResponse As String = A5_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "A6OP" Then
            A6.Enabled = True
            A6.BringToFront()
            If A6_id = "WATER" Then
                A6.Image = My.Resources.Blue
            Else
                A6.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = A6_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "A7OP" Then
            A7.Enabled = True
            A7.BringToFront()
            If A7_id = "WATER" Then
                A7.Image = My.Resources.Blue
            Else
                A7.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = A7_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "A8OP" Then
            A8.Enabled = True
            A8.BringToFront()
            If A8_id = "WATER" Then
                A8.Image = My.Resources.Blue
            Else
                A8.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = A8_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "A9OP" Then
            A9.Enabled = True
            A9.BringToFront()
            If A9_id = "WATER" Then
                A9.Image = My.Resources.Blue
            Else
                A9.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = A9_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "A10OP" Then
            A10.Enabled = True
            A10.BringToFront()
            If A10_id = "WATER" Then
                A10.Image = My.Resources.Blue
            Else
                A10.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = A10_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "B1OP" Then
            B1.Enabled = True
            B1.BringToFront()
            If B1_id = "WATER" Then
                B1.Image = My.Resources.Blue
            Else
                B1.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = B1_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "B2OP" Then
            B2.Enabled = True
            B2.BringToFront()
            If B2_id = "WATER" Then
                B2.Image = My.Resources.Blue
            Else
                B2.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = B2_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "B3OP" Then
            B3.Enabled = True
            B3.BringToFront()
            If B3_id = "WATER" Then
                B3.Image = My.Resources.Blue
            Else
                B3.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = B3_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "B4OP" Then
            B4.Enabled = True
            B4.BringToFront()
            If B4_id = "WATER" Then
                B4.Image = My.Resources.Blue
            Else
                B4.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = B4_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "B5OP" Then
            B5.Enabled = True
            B5.BringToFront()
            If B5_id = "WATER" Then
                B5.Image = My.Resources.Blue
            Else
                B5.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = B5_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "B6OP" Then
            B6.Enabled = True
            B6.BringToFront()
            If B6_id = "WATER" Then
                B6.Image = My.Resources.Blue
            Else
                B6.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = B6_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "B7OP" Then
            B7.Enabled = True
            B7.BringToFront()
            If B7_id = "WATER" Then
                B7.Image = My.Resources.Blue
            Else
                B7.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = B7_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "B8OP" Then
            B8.Enabled = True
            B8.BringToFront()
            If B8_id = "WATER" Then
                B8.Image = My.Resources.Blue
            Else
                B8.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = B8_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "B9OP" Then
            B9.Enabled = True
            B9.BringToFront()
            If B9_id = "WATER" Then
                B9.Image = My.Resources.Blue
            Else
                B9.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = B9_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "B10OP" Then
            B10.Enabled = True
            B10.BringToFront()
            If B10_id = "WATER" Then
                B10.Image = My.Resources.Blue
            Else
                B10.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = B10_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "C1OP" Then
            C1.Enabled = True
            C1.BringToFront()
            If C1_id = "WATER" Then
                C1.Image = My.Resources.Blue
            Else
                C1.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = C1_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "C2OP" Then
            C2.Enabled = True
            C2.BringToFront()
            If C2_id = "WATER" Then
                C2.Image = My.Resources.Blue
            Else
                C2.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = C2_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "C3OP" Then
            C3.Enabled = True
            C3.BringToFront()
            If C3_id = "WATER" Then
                C3.Image = My.Resources.Blue
            Else
                C3.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = C3_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "C4OP" Then
            C4.Enabled = True
            C4.BringToFront()
            If C4_id = "WATER" Then
                C4.Image = My.Resources.Blue
            Else
                C4.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = C4_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "C5OP" Then
            C5.Enabled = True
            C5.BringToFront()
            If C5_id = "WATER" Then
                C5.Image = My.Resources.Blue
            Else
                C5.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = C5_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "C6OP" Then
            C6.Enabled = True
            C6.BringToFront()
            If C6_id = "WATER" Then
                C6.Image = My.Resources.Blue
            Else
                C6.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = C6_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "C7OP" Then
            C7.Enabled = True
            C7.BringToFront()
            If C7_id = "WATER" Then
                C7.Image = My.Resources.Blue
            Else
                C7.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = C7_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "C8OP" Then
            C8.Enabled = True
            C8.BringToFront()
            If C8_id = "WATER" Then
                C8.Image = My.Resources.Blue
            Else
                C8.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = C8_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "C9OP" Then
            C9.Enabled = True
            C9.BringToFront()
            If C9_id = "WATER" Then
                C9.Image = My.Resources.Blue
            Else
                C9.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = C9_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "C10OP" Then
            C10.Enabled = True
            C10.BringToFront()
            If C10_id = "WATER" Then
                C10.Image = My.Resources.Blue
            Else
                C10.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = C10_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "D1OP" Then
            D1.Enabled = True
            D1.BringToFront()
            If D1_id = "WATER" Then
                D1.Image = My.Resources.Blue
            Else
                D1.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = D1_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "D2OP" Then
            D2.Enabled = True
            D2.BringToFront()
            If D2_id = "WATER" Then
                D2.Image = My.Resources.Blue
            Else
                D2.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = D2_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "D3OP" Then
            D3.Enabled = True
            D3.BringToFront()
            If D3_id = "WATER" Then
                D3.Image = My.Resources.Blue
            Else
                D3.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = D3_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "D4OP" Then
            D4.Enabled = True
            D4.BringToFront()
            If D4_id = "WATER" Then
                D4.Image = My.Resources.Blue
            Else
                D4.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = D4_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "D5OP" Then
            D5.Enabled = True
            D5.BringToFront()
            If D5_id = "WATER" Then
                D5.Image = My.Resources.Blue
            Else
                D5.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = D5_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "D6OP" Then
            D6.Enabled = True
            D6.BringToFront()
            If D6_id = "WATER" Then
                D6.Image = My.Resources.Blue
            Else
                D6.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = D6_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "D7OP" Then
            D7.Enabled = True
            D7.BringToFront()
            If D7_id = "WATER" Then
                D7.Image = My.Resources.Blue
            Else
                D7.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = D7_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "D8OP" Then
            D8.Enabled = True
            D8.BringToFront()
            If D8_id = "WATER" Then
                D8.Image = My.Resources.Blue
            Else
                D8.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = D8_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "D9OP" Then
            D9.Enabled = True
            D9.BringToFront()
            If D9_id = "WATER" Then
                D9.Image = My.Resources.Blue
            Else
                D9.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = D9_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "D10OP" Then
            D10.Enabled = True
            D10.BringToFront()
            If D10_id = "WATER" Then
                D10.Image = My.Resources.Blue
            Else
                D10.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = D10_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "E1OP" Then
            E1.Enabled = True
            E1.BringToFront()
            If E1_id = "WATER" Then
                E1.Image = My.Resources.Blue
            Else
                E1.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = E1_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "E2OP" Then
            E2.Enabled = True
            E2.BringToFront()
            If E2_id = "WATER" Then
                E2.Image = My.Resources.Blue
            Else
                E2.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = E2_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "E3OP" Then
            E3.Enabled = True
            E3.BringToFront()
            If E3_id = "WATER" Then
                E3.Image = My.Resources.Blue
            Else
                E3.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = E3_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "E4OP" Then
            E4.Enabled = True
            E4.BringToFront()
            If E4_id = "WATER" Then
                E4.Image = My.Resources.Blue
            Else
                E4.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = E4_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "E5OP" Then
            E5.Enabled = True
            E5.BringToFront()
            If E5_id = "WATER" Then
                E5.Image = My.Resources.Blue
            Else
                E5.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = E5_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "E6OP" Then
            E6.Enabled = True
            E6.BringToFront()
            If E6_id = "WATER" Then
                E6.Image = My.Resources.Blue
            Else
                E6.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = E6_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "E7OP" Then
            E7.Enabled = True
            E7.BringToFront()
            If E7_id = "WATER" Then
                E7.Image = My.Resources.Blue
            Else
                E7.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = E7_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "E8OP" Then
            E8.Enabled = True
            E8.BringToFront()
            If E8_id = "WATER" Then
                E8.Image = My.Resources.Blue
            Else
                E8.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = E8_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "E9OP" Then
            E9.Enabled = True
            E9.BringToFront()
            If E9_id = "WATER" Then
                E9.Image = My.Resources.Blue
            Else
                E9.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = E9_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "E10OP" Then
            E10.Enabled = True
            E10.BringToFront()
            If E10_id = "WATER" Then
                E10.Image = My.Resources.Blue
            Else
                E10.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = E10_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "F1OP" Then
            F1.Enabled = True
            F1.BringToFront()
            If F1_id = "WATER" Then
                F1.Image = My.Resources.Blue
            Else
                F1.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = F1_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "F2OP" Then
            F2.Enabled = True
            F2.BringToFront()
            If F2_id = "WATER" Then
                F2.Image = My.Resources.Blue
            Else
                F2.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = F2_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "F3OP" Then
            F3.Enabled = True
            F3.BringToFront()
            If F3_id = "WATER" Then
                F3.Image = My.Resources.Blue
            Else
                F3.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = F3_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "F4OP" Then
            F4.Enabled = True
            F4.BringToFront()
            If F4_id = "WATER" Then
                F4.Image = My.Resources.Blue
            Else
                F4.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = F4_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "F5OP" Then
            F5.Enabled = True
            F5.BringToFront()
            If F5_id = "WATER" Then
                F5.Image = My.Resources.Blue
            Else
                F5.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = F5_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "F6OP" Then
            F6.Enabled = True
            F6.BringToFront()
            If F6_id = "WATER" Then
                F6.Image = My.Resources.Blue
            Else
                F6.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = F6_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "F7OP" Then
            F7.Enabled = True
            F7.BringToFront()
            If F7_id = "WATER" Then
                F7.Image = My.Resources.Blue
            Else
                E7.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = F7_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "F8OP" Then
            F8.Enabled = True
            F8.BringToFront()
            If F8_id = "WATER" Then
                F8.Image = My.Resources.Blue
            Else
                F8.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = F8_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "F9OP" Then
            F9.Enabled = True
            F9.BringToFront()
            If F9_id = "WATER" Then
                F9.Image = My.Resources.Blue
            Else
                F9.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = F9_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "F10OP" Then
            F10.Enabled = True
            F10.BringToFront()
            If F10_id = "WATER" Then
                F10.Image = My.Resources.Blue
            Else
                F10.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = F10_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "G1OP" Then
            G1.Enabled = True
            G1.BringToFront()
            If G1_id = "WATER" Then
                G1.Image = My.Resources.Blue
            Else
                G1.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = G1_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "G2OP" Then
            G2.Enabled = True
            G2.BringToFront()
            If G2_id = "WATER" Then
                G2.Image = My.Resources.Blue
            Else
                G2.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = G2_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "G3OP" Then
            G3.Enabled = True
            G3.BringToFront()
            If G3_id = "WATER" Then
                G3.Image = My.Resources.Blue
            Else
                G3.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = G3_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "G4OP" Then
            G4.Enabled = True
            G4.BringToFront()
            If G4_id = "WATER" Then
                G4.Image = My.Resources.Blue
            Else
                G4.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = G4_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "G5OP" Then
            G5.Enabled = True
            G5.BringToFront()
            If G5_id = "WATER" Then
                G5.Image = My.Resources.Blue
            Else
                G5.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = G5_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "G6OP" Then
            G6.Enabled = True
            G6.BringToFront()
            If G6_id = "WATER" Then
                G6.Image = My.Resources.Blue
            Else
                G6.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = G6_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "G7OP" Then
            G7.Enabled = True
            G7.BringToFront()
            If G7_id = "WATER" Then
                G7.Image = My.Resources.Blue
            Else
                G7.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = G7_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "G8OP" Then
            G8.Enabled = True
            G8.BringToFront()
            If G8_id = "WATER" Then
                G8.Image = My.Resources.Blue
            Else
                G8.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = G8_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "G9OP" Then
            G9.Enabled = True
            G9.BringToFront()
            If G9_id = "WATER" Then
                G9.Image = My.Resources.Blue
            Else
                G9.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = G9_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "G10OP" Then
            G10.Enabled = True
            G10.BringToFront()
            If G10_id = "WATER" Then
                G10.Image = My.Resources.Blue
            Else
                G10.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = G10_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "H1OP" Then
            H1.Enabled = True
            H1.BringToFront()
            If H1_id = "WATER" Then
                H1.Image = My.Resources.Blue
            Else
                H1.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = H1_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "H2OP" Then
            H2.Enabled = True
            H2.BringToFront()
            If H2_id = "WATER" Then
                H2.Image = My.Resources.Blue
            Else
                H2.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = H2_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "H3OP" Then
            H3.Enabled = True
            H3.BringToFront()
            If H3_id = "WATER" Then
                H3.Image = My.Resources.Blue
            Else
                H3.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = H3_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "H4OP" Then
            H4.Enabled = True
            H4.BringToFront()
            If H4_id = "WATER" Then
                H4.Image = My.Resources.Blue
            Else
                H4.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = H4_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "H5OP" Then
            H5.Enabled = True
            H5.BringToFront()
            If H5_id = "WATER" Then
                H5.Image = My.Resources.Blue
            Else
                H5.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = H5_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "H6OP" Then
            H6.Enabled = True
            H6.BringToFront()
            If H6_id = "WATER" Then
                H6.Image = My.Resources.Blue
            Else
                H6.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = H6_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "H7OP" Then
            H7.Enabled = True
            H7.BringToFront()
            If H7_id = "WATER" Then
                H7.Image = My.Resources.Blue
            Else
                H7.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = H7_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "H8OP" Then
            H8.Enabled = True
            H8.BringToFront()
            If H8_id = "WATER" Then
                H8.Image = My.Resources.Blue
            Else
                H8.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = H8_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "H9OP" Then
            H9.Enabled = True
            H9.BringToFront()
            If H9_id = "WATER" Then
                H9.Image = My.Resources.Blue
            Else
                H9.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = H9_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "H10OP" Then
            H10.Enabled = True
            H10.BringToFront()
            If H10_id = "WATER" Then
                H10.Image = My.Resources.Blue
            Else
                H10.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = H10_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "I1OP" Then
            I1.Enabled = True
            I1.BringToFront()
            If I1_id = "WATER" Then
                I1.Image = My.Resources.Blue
            Else
                I1.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = I1_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "I2OP" Then
            I2.Enabled = True
            I2.BringToFront()
            If I2_id = "WATER" Then
                I2.Image = My.Resources.Blue
            Else
                I2.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = I2_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "I3OP" Then
            I3.Enabled = True
            I3.BringToFront()
            If I3_id = "WATER" Then
                I3.Image = My.Resources.Blue
            Else
                I3.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = I3_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "I4OP" Then
            I4.Enabled = True
            I4.BringToFront()
            If I4_id = "WATER" Then
                I4.Image = My.Resources.Blue
            Else
                I4.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = I4_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "I5OP" Then
            I5.Enabled = True
            I5.BringToFront()
            If I5_id = "WATER" Then
                I5.Image = My.Resources.Blue
            Else
                I5.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = I5_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "I6OP" Then
            I6.Enabled = True
            I6.BringToFront()
            If I6_id = "WATER" Then
                I6.Image = My.Resources.Blue
            Else
                I6.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = I6_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "I7OP" Then
            I7.Enabled = True
            I7.BringToFront()
            If I7_id = "WATER" Then
                I7.Image = My.Resources.Blue
            Else
                I7.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = I7_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "I8OP" Then
            I8.Enabled = True
            I8.BringToFront()
            If I8_id = "WATER" Then
                I8.Image = My.Resources.Blue
            Else
                I8.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = I8_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "I9OP" Then
            I9.Enabled = True
            I9.BringToFront()
            If I9_id = "WATER" Then
                I9.Image = My.Resources.Blue
            Else
                I9.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = I9_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "I10OP" Then
            I10.Enabled = True
            I10.BringToFront()
            If I10_id = "WATER" Then
                I10.Image = My.Resources.Blue
            Else
                I10.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = I10_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "J1OP" Then
            J1.Enabled = True
            J1.BringToFront()
            If J1_id = "WATER" Then
                J1.Image = My.Resources.Blue
            Else
                J1.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = J1_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "J2OP" Then
            J2.Enabled = True
            J2.BringToFront()
            If J2_id = "WATER" Then
                J2.Image = My.Resources.Blue
            Else
                J2.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = J2_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "J3OP" Then
            J3.Enabled = True
            J3.BringToFront()
            If J3_id = "WATER" Then
                J3.Image = My.Resources.Blue
            Else
                J3.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = J3_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "J4OP" Then
            J4.Enabled = True
            J4.BringToFront()
            If J4_id = "WATER" Then
                J4.Image = My.Resources.Blue
            Else
                J4.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = J4_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "J5OP" Then
            J5.Enabled = True
            J5.BringToFront()
            If J5_id = "WATER" Then
                J5.Image = My.Resources.Blue
            Else
                J5.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = J5_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "J6OP" Then
            J6.Enabled = True
            J6.BringToFront()
            If J6_id = "WATER" Then
                J6.Image = My.Resources.Blue
            Else
                J6.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = J6_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "J7OP" Then
            J7.Enabled = True
            J7.BringToFront()
            If J7_id = "WATER" Then
                J7.Image = My.Resources.Blue
            Else
                J7.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = J7_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "J8OP" Then
            J8.Enabled = True
            J8.BringToFront()
            If J8_id = "WATER" Then
                J8.Image = My.Resources.Blue
            Else
                J8.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = J8_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "J9OP" Then
            J9.Enabled = True
            J9.BringToFront()
            If J9_id = "WATER" Then
                J9.Image = My.Resources.Blue
            Else
                J9.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = J9_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        ElseIf TextBox1.Text = "J10OP" Then
            J10.Enabled = True
            J10.BringToFront()
            If J10_id = "WATER" Then
                J10.Image = My.Resources.Blue
            Else
                J10.Image = My.Resources.red
                hitbyopcount += 1
            End If

            Dim serverResponse As String = J10_id
            Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
            Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
            Form1.networkStream.Flush()
            TextBox1.Text = serverResponse
        Else
            MessageBox.Show("error - Server")
        End If

        If hitbyopcount = 14 Then
            MessageBox.Show("Exases")
            Me.Close()
            Form1.Close()
        End If
    End Sub

    Private Sub A1OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles A1OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = A1OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            A1OP.Image = My.Resources.Blue
        Else
            A1OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()

    End Sub

    Private Sub A2OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles A2OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = A2OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            A2OP.Image = My.Resources.Blue
        Else
            A2OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()

    End Sub

    Private Sub A3OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles A3OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = A3OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            A3OP.Image = My.Resources.Blue
        Else
            A3OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub A4OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles A4OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = A4OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            A4OP.Image = My.Resources.Blue
        Else
            A4OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub A5OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles A5OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = A5OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            A5OP.Image = My.Resources.Blue
        Else
            A5OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub A6OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles A6OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = A6OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            A6OP.Image = My.Resources.Blue
        Else
            A6OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub A7OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles A7OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = A7OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            A7OP.Image = My.Resources.Blue
        Else
            A7OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub A8OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles A8OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = A8OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            A8OP.Image = My.Resources.Blue
        Else
            A8OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub A9OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles A9OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = A9OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            A9OP.Image = My.Resources.Blue
        Else
            A9OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub A10OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles A10OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = A10OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            A10OP.Image = My.Resources.Blue
        Else
            A10OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub B1OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B1OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = B1OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            B1OP.Image = My.Resources.Blue
        Else
            B1OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()

    End Sub

    Private Sub B2OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B2OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = B2OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            B2OP.Image = My.Resources.Blue
        Else
            B2OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()

    End Sub

    Private Sub B3OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B3OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = B3OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            B3OP.Image = My.Resources.Blue
        Else
            B3OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub B4OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B4OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = B4OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            B4OP.Image = My.Resources.Blue
        Else
            B4OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub B5OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B5OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = B5OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            B5OP.Image = My.Resources.Blue
        Else
            B5OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub B6OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B6OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = B6OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            B6OP.Image = My.Resources.Blue
        Else
            B6OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub B7OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B7OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = B7OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            B7OP.Image = My.Resources.Blue
        Else
            B7OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub B8OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B8OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = B8OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            B8OP.Image = My.Resources.Blue
        Else
            B8OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub B9OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B9OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = B9OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            B9OP.Image = My.Resources.Blue
        Else
            B9OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub B10OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B10OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = B10OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            B10OP.Image = My.Resources.Blue
        Else
            B10OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub C1OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C1OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = C1OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            C1OP.Image = My.Resources.Blue
        Else
            C1OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()

    End Sub

    Private Sub C2OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C2OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = C2OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            C2OP.Image = My.Resources.Blue
        Else
            C2OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()

    End Sub

    Private Sub C3OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C3OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = C3OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            C3OP.Image = My.Resources.Blue
        Else
            C3OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub C4OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C4OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = C4OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            C4OP.Image = My.Resources.Blue
        Else
            C4OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub C5OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C5OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = C5OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            C5OP.Image = My.Resources.Blue
        Else
            C5OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub C6OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C6OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = C6OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            C6OP.Image = My.Resources.Blue
        Else
            C6OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub C7OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C7OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = C7OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            C7OP.Image = My.Resources.Blue
        Else
            C7OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub C8OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C8OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = C8OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            C8OP.Image = My.Resources.Blue
        Else
            C8OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub C9OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C9OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = C9OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            C9OP.Image = My.Resources.Blue
        Else
            C9OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub C10OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles C10OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = C10OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            C10OP.Image = My.Resources.Blue
        Else
            C10OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub D1OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles D1OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = D1OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            D1OP.Image = My.Resources.Blue
        Else
            D1OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()

    End Sub

    Private Sub D2OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles D2OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = D2OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            D2OP.Image = My.Resources.Blue
        Else
            D2OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()

    End Sub

    Private Sub D3OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles D3OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = D3OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            D3OP.Image = My.Resources.Blue
        Else
            D3OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub D4OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles D4OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = D4OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            D4OP.Image = My.Resources.Blue
        Else
            D4OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub D5OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles D5OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = D5OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            D5OP.Image = My.Resources.Blue
        Else
            D5OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub D6OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles D6OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = D6OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            D6OP.Image = My.Resources.Blue
        Else
            D6OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub D7OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles D7OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = D7OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            D7OP.Image = My.Resources.Blue
        Else
            D7OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub D8OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles D8OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = D8OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            D8OP.Image = My.Resources.Blue
        Else
            D8OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub D9OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles D9OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = D9OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            D9OP.Image = My.Resources.Blue
        Else
            D9OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub D10OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles D10OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = D10OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            D10OP.Image = My.Resources.Blue
        Else
            D10OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub E1OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles E1OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = E1OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            E1OP.Image = My.Resources.Blue
        Else
            E1OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()

    End Sub

    Private Sub E2OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles E2OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = E2OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            E2OP.Image = My.Resources.Blue
        Else
            E2OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()

    End Sub

    Private Sub E3OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles E3OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = E3OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            E3OP.Image = My.Resources.Blue
        Else
            E3OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub E4OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles E4OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = E4OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            E4OP.Image = My.Resources.Blue
        Else
            E4OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub E5OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles E5OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = E5OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            E5OP.Image = My.Resources.Blue
        Else
            E5OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub E6OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles E6OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = E6OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            E6OP.Image = My.Resources.Blue
        Else
            E6OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub E7OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles E7OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = E7OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            E7OP.Image = My.Resources.Blue
        Else
            E7OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub E8OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles E8OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = E8OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            E8OP.Image = My.Resources.Blue
        Else
            E8OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub E9OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles E9OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = E9OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            E9OP.Image = My.Resources.Blue
        Else
            E9OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub E10OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles E10OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = E10OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            E10OP.Image = My.Resources.Blue
        Else
            E10OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub F1OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles F1OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = F1OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            F1OP.Image = My.Resources.Blue
        Else
            F1OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()

    End Sub

    Private Sub F2OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles F2OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = F2OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            F2OP.Image = My.Resources.Blue
        Else
            F2OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()

    End Sub

    Private Sub F3OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles F3OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = F3OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            F3OP.Image = My.Resources.Blue
        Else
            F3OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub F4OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles F4OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = F4OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            F4OP.Image = My.Resources.Blue
        Else
            F4OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub F5OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles F5OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = F5OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            F5OP.Image = My.Resources.Blue
        Else
            F5OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub F6OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles F6OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = F6OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            F6OP.Image = My.Resources.Blue
        Else
            F6OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub F7OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles F7OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = F7OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            F7OP.Image = My.Resources.Blue
        Else
            F7OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub F8OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles F8OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = F8OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            F8OP.Image = My.Resources.Blue
        Else
            F8OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub F9OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles F9OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = F9OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            F9OP.Image = My.Resources.Blue
        Else
            F9OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub F10OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles F10OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = F10OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            F10OP.Image = My.Resources.Blue
        Else
            F10OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub G1OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles G1OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = G1OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            G1OP.Image = My.Resources.Blue
        Else
            G1OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()

    End Sub

    Private Sub G2OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles G2OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = G2OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            G2OP.Image = My.Resources.Blue
        Else
            G2OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()

    End Sub

    Private Sub G3OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles G3OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = G3OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            G3OP.Image = My.Resources.Blue
        Else
            G3OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub G4OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles G4OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = G4OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            G4OP.Image = My.Resources.Blue
        Else
            G4OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub G5OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles G5OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = G5OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            G5OP.Image = My.Resources.Blue
        Else
            G5OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub G6OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles G6OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = G6OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            G6OP.Image = My.Resources.Blue
        Else
            G6OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub G7OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles G7OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = G7OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            G7OP.Image = My.Resources.Blue
        Else
            G7OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub G8OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles G8OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = G8OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            G8OP.Image = My.Resources.Blue
        Else
            G8OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub G9OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles G9OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = G9OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            G9OP.Image = My.Resources.Blue
        Else
            G9OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub G10OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles G10OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = G10OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            G10OP.Image = My.Resources.Blue
        Else
            G10OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub H1OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles H1OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = H1OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            H1OP.Image = My.Resources.Blue
        Else
            H1OP.Image = My.Resources.red
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()

    End Sub

    Private Sub H2OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles H2OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = H2OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            H2OP.Image = My.Resources.Blue
        Else
            H2OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()

    End Sub

    Private Sub H3OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles H3OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = H3OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            H3OP.Image = My.Resources.Blue
        Else
            H3OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub H4OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles H4OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = H4OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            H4OP.Image = My.Resources.Blue
        Else
            H4OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub H5OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles H5OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = H5OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            H5OP.Image = My.Resources.Blue
        Else
            H5OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub H6OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles H6OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = H6OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            H6OP.Image = My.Resources.Blue
        Else
            H6OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub H7OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles H7OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = H7OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            H7OP.Image = My.Resources.Blue
        Else
            H7OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub H8OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles H8OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = H8OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            H8OP.Image = My.Resources.Blue
        Else
            H8OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub H9OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles H9OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = H9OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            H9OP.Image = My.Resources.Blue
        Else
            H9OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub H10OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles H10OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = H10OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            H10OP.Image = My.Resources.Blue
        Else
            H10OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub I1OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles I1OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = I1OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            I1OP.Image = My.Resources.Blue
        Else
            I1OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()

    End Sub

    Private Sub I2OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles I2OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = I2OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            I2OP.Image = My.Resources.Blue
        Else
            I2OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()

    End Sub

    Private Sub I3OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles I3OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = I3OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            I3OP.Image = My.Resources.Blue
        Else
            I3OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub I4OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles I4OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = I4OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            I4OP.Image = My.Resources.Blue
        Else
            I4OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub I5OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles I5OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = I5OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            I5OP.Image = My.Resources.Blue
        Else
            I5OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub I6OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles I6OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = I6OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            I6OP.Image = My.Resources.Blue
        Else
            I6OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub I7OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles I7OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = I7OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            I7OP.Image = My.Resources.Blue
        Else
            I7OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub I8OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles I8OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = I8OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            I8OP.Image = My.Resources.Blue
        Else
            I8OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub I9OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles I9OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = I9OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            I9OP.Image = My.Resources.Blue
        Else
            I9OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub I10OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles I10OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = I10OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            I10OP.Image = My.Resources.Blue
        Else
            I10OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub J1OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles J1OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = J1OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            J1OP.Image = My.Resources.Blue
        Else
            J1OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()

    End Sub

    Private Sub J2OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles J2OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = J2OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            J2OP.Image = My.Resources.Blue
        Else
            J2OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()

    End Sub

    Private Sub J3OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles J3OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = J3OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            J3OP.Image = My.Resources.Blue
        Else
            J3OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub J4OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles J4OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = J4OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            J4OP.Image = My.Resources.Blue
        Else
            J4OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub J5OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles J5OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = J5OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            J5OP.Image = My.Resources.Blue
        Else
            J5OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub J6OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles J6OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = J6OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            J6OP.Image = My.Resources.Blue
        Else
            J6OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub J7OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles J7OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = J7OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            J7OP.Image = My.Resources.Blue
        Else
            J7OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub J8OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles J8OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = J8OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            J8OP.Image = My.Resources.Blue
        Else
            J8OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub J9OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles J9OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = J9OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            J9OP.Image = My.Resources.Blue
        Else
            J9OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub J10OP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles J10OP.Click
        Form1.networkStream = Form1.clientSocket.GetStream()
        Dim serverResponse As String = J10OP.Name
        Dim sendBytes As [Byte]() = Encoding.ASCII.GetBytes(serverResponse)
        Form1.networkStream.Write(sendBytes, 0, sendBytes.Length)
        Form1.networkStream.Flush()

        Dim buffSize2 As Integer
        buffSize2 = Form1.clientSocket.ReceiveBufferSize
        Form1.networkStream.Read(Form1.bytesFrom, 0, buffSize2)
        Dim dataFromClient2 As String = System.Text.Encoding.ASCII.GetString(Form1.bytesFrom)
        dataFromClient2 = dataFromClient2.Substring(0, dataFromClient2.IndexOf("$"))
        TextBox1.Text = dataFromClient2
        Form1.networkStream.Flush()

        If TextBox1.Text = "WATER" Then
            J10OP.Image = My.Resources.Blue
        Else
            J10OP.Image = My.Resources.red
            score += 10 'pros8ese 10 sto score
            score += count
            Label51.Text = score 'emfanise sto label tou score, tin timi tou score
            hitcount += 1
        End If

        If hitcount = 14 Then
            MessageBox.Show("VICTORY")
            Me.Close()
            Form1.Close()
        End If

        recieve()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        'o xronos
        'dimiourgia label pou kratane metrisi gia to timer
        'tous simperiferomai ws double kanontas ta 0 , etsi mporw na pros8esw timi epanw tous

        Label46.Text += 1 'to prwto label den stamataei na metraei
        count += 50 'metritis gia na proste8ei sto teliko  score
        If Label46.Text = 60 Then 'an perasoume ta 60 deuterolepta tote metraei kai to deutero label
            Label46.Text = "0" '3anaginete 0 to prwto label
            Label47.Text += 1 'ksekinaei na metraei kai to deutero label
            Label49.Visible = True 'minima hurry up
            count -= 300 'epiedi einai idi 1 lepto pou paizei paixnidi meiwnw to count me skopo na aferesw pontous sto teliko score
        ElseIf Label47.Text = 60 Then
            Label47.Text = "0"
            Label48.Text += 1
            count -= 100
        End If

    End Sub

    
End Class